Les répertoires de windows avec le systeme et la base de registre

0/5 (5 avis)

Vue 9 454 fois - Téléchargée 1 010 fois

Description

Tres simple mais bien pratique de temps en temps. Il donne les chemins de windows tel que mes documents ou Temp pour n'importe quel ordi. Ideal pour les installations.

Source / Exemple :


Set fso = CreateObject("Scripting.FileSystemObject")

'Répertoire systeme Windows
Set dirsystem = fso.GetSpecialFolder(1)
Text1.Text = dirsystem

'Réperoire Windows
Set dirwindows = fso.GetSpecialFolder(0)
Text2.Text = dirwindows

'Répertoire Temporaire
Set dirtemp = fso.GetSpecialFolder(2)
Text3.Text = dirtemp

'Utilisation du wscript.shell pour lire dans la base de registre
Set WshShell = CreateObject("WScript.Shell")

'Bureau Windows (Registre)
Text4.Text = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")

'Menu démarrer (Registre)
Text5.Text = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Start Menu")

'Mes documents
Text6.Text = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Personal")

'Fonts
Text7.Text = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Fonts")

'Pour l'utilisation d'autres dossiers se raportant a un utilisateur spécifique utiliser la base de registre: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\
'Les dossiers se rapportant à l'administrateur se trouvent tout simplement dans: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Tchoul Messages postés 1 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 21 mars 2006
21 mars 2006 à 11:18
Une simplicité biblique pour une efficacité redoutable.
Merci.
ratala Messages postés 248 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 22 juin 2008
18 nov. 2005 à 19:31
Tres pratique je mets 10/10
cs_Zouf Messages postés 28 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 9 juin 2004
23 avril 2004 à 16:55
Cela fonctionne-t-il sous win98?
cs_slayer Messages postés 202 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 mars 2008
19 janv. 2003 à 20:38
sa m'enleve une epine du pied , merci !
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 1
6 juin 2002 à 17:49
Ouin,sa lit dna le registre...Ya deja des API pour faire sa,je veux dire connaitre les rep :)
Mais je ne crois pas que les api font tout sa merci c'est tres utile je cherchais depuis longtemp :) :O

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.