Comment faire pour récupérer l'emplacement du dossier de démarrage dans Windows 64 bits

Question

J'ai un script VB qui ajoute un raccourci de programme dans le dossier de démarrage de Windows. Dans mon scénario, je suis en mesure de récupérer l'emplacement du dossier de démarrage dans Windows 32 bits avec ceci:

Set objShell = CreateObject("WScript.Shell") 
    startupFolder = objShell.SpecialFolders("Startup") 

mais il ne renvoie rien lorsque je tente cela sur Windows 64 bits. Plus précisément, je suis en train de tester sur Vista 64 bits. Je n'arrive pas à trouver la variable d'environnement ou la syntaxe appropriée pour cela. Merci.

Answer 1

Essayez une autre variante en utilisant l'objet Shell.Application:

Const ssfSTARTUP = &H7 

Set oShell = CreateObject("Shell.Application") 
Set startupFolder = oShell.NameSpace(ssfSTARTUP) 

If Not startupFolder Is Nothing Then 
    WScript.Echo startupFolder.Self.Path 
End If 

-t-il pour vous?

Answer 2

Voir si cela fonctionne. Cela lit en fait la valeur de registre où le dossier est stocké. Je peux imaginer pourquoi l'autre méthode ne fonctionne pas en 64 bits.

 
Dim startupFolder As String 
startupFolder = My.Computer.Registry.GetValue _ 
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Startup", Nothing)