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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager