Créer un raccourci vers un dossier

Version imprimable

Bonjour,

Je n'ai aucun souci pour créer un raccourci vers un fichier avec le code suivant.

Par contre impossible de créer un raccourci vers un dossier!!

Ci dessous le code que j'utilise pour les raccourcis vers un fichier :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 THEPATH = "C:\test\" Set objShell = CreateObject("WScript.Shell" ) Set objRacc = objShell.CreateShortcut(THEPATH & "test.Lnk" ) objRacc.TargetPath = Chr(34) & THEPATH & Chr(34) objRacc.Arguments = "" objRacc.WindowStyle = 4 objRacc.WorkingDirectory = Chr(34) & THEPATH & Chr(34) objRacc.Save Set objRacc = Nothing

17/03/2008, 09h35
ced600

Et cela donne quoi ?
19/03/2008, 10h16
krhyme

Cela me créer un fichier raccourci "mal configuré" :cry:, lorsque que je double clique dessus, au lieu de me renvoyer vers le dossier cible, ça m'ouvre "ouvrir avec ..." (comme lorsque windows ne reconnait pas un format de fichier) :bug:

En fait il ne faut pas mettre de "

Code:

1
2
3
4
5
6
7
8
9
10
11
THEPATH = "C:\temp\"
 
Set objShell = CreateObject("WScript.Shell" )
Set objRacc = objShell.CreateShortcut(THEPATH & "test.Lnk" )
objRacc.TargetPath = THEPATH  
objRacc.Arguments = ""
objRacc.WindowStyle = 4
objRacc.WorkingDirectory = THEPATH
objRacc.Save
 
Set objRacc = Nothing