Discussion :

[krhyme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

Et cela donne quoi ?

[krhyme]

Cela me créer un fichier raccourci "mal configuré" , 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)

[ced600]

En fait il ne faut pas mettre de "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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