Soyez le premier à donner votre avis sur cette source.
Vue 9 316 fois - Téléchargée 975 fois
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\
Merci.
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.