[FAQ VB/VBA] Récupérer le chemin d'accés du répertoire Mes documents
Suite à la discussion : [VB6] Syntaxe répertoire de sauvegarde ,
et aprés adaptation de la faq : Comment accéder à la base de registre ?
cela donne :
Q : Comment Récupérer le chemin d'accés du répertoire Mes documents
R : Par la lecture de la clef : "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal" dans la base de registre :
Code:
1 2 3 4 5 6 7 8 9
|
Sub LectureRegistre()
Dim Ma_Clef As String 'Chemin de ma clef dans le registre
Dim WshShell As Object
Ma_Clef = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal"
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.RegRead(Ma_Clef)
Set WshShell = Nothing
End Sub |
Le sujet est un peu vieux mais ça peu toujours aider !!!
Salut à tous,
Il est possible de connaitre le chemin d'accés en utilsant la ligne de commande suivante :
cd "%USERPROFILE%\Mes Documents" (par exemple pour le Dossier Mes Documents).
Prenez le temps de tester dans une boite de commande et vous verrez que ça vous ressortira l'adresse de l'utilisateur courant, sous Linux/Mac il s'agit de la ligne de commande cd "home" ou "~" si mes souvenirs sont bons mais je ne suis pas sur de cela. Par contre %USERPROFILE% fonctionne sous XP avec certitude mais je n'ai pas tester sous 2000.
Voià je ne sais pas si cela aura un intérêt pour certains, à vrai dire moi ça m'a permis d'avancer sur ma conception de Gadgets/Widgets sous Yahoo! Widget Engine qui répertorie les widgets dans le dossier "Mes Documents\My Widget" de l'utilisateur courant.
Passez une bonne journée à tous et en espérant que ça pourra aider.
Cordialement,
GK.
bonjour! ta code marche super Top
Citation:
Envoyé par
SfJ5Rpw8
Suite à la discussion :
[VB6] Syntaxe répertoire de sauvegarde ,
et aprés adaptation de la faq :
Comment accéder à la base de registre ?
cela donne :
Q : Comment Récupérer le chemin d'accés du répertoire Mes documents
R : Par la lecture de la clef : "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal" dans la base de registre :
Code:
1 2 3 4 5 6 7 8 9
|
Sub LectureRegistre()
Dim Ma_Clef As String 'Chemin de ma clef dans le registre
Dim WshShell As Object
Ma_Clef = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal"
Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.RegRead(Ma_Clef)
Set WshShell = Nothing
End Sub |
Salut, dis est-ce que cette super code marche pour recuper le chemin du repertoire du telechargement par défaut?
Merci