Discussion :

[papyxy]

Bonsoir
je rencontre un problème avec "CreateShortcut" dans ce qui suit:

Code :

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

1
2
3
4
5
6
Set Shell = CreateObject("WScript.Shell")
Set URL   = Shell.CreateShortcut("Clic_sur_moi.lnk")
URL.IconLocation     =  "FINGER.ICO" 
URL.TargetPath       = curdir & "\jeparle.vbs"
URL.WorkingDirectory = curdir
URL.Save

le raccourci se crée bien mais l'icone n’apparaît pas. Elle est pourtant présente dans le répertoire en cours.

[SfJ5Rpw8]

Bonsoir,


c'est quoi la variable curDir ??

Code :

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

URL.IconLocation     =curdir & "\FINGER.ICO"

[papyxy]

Bonjour
j'ai essayé ta solution, avec le même résultat.

Code :

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

1
2
Set oFSO  = CreateObject("Scripting.FileSystemObject")
curdir = oFSO.GetFolder("c:").path

C'est le moyen que j'ai trouvé pour obtenir le "path" du répertoire en cours.

[Cachlab]

Salut !

Essaye avec :

Code :

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

1
2
3
4
[...]
curdir = WScript.ScriptFullName
curdir = left(curdir,InStrRev(curdir,"\"))
[...]

[papyxy]

effectivement je récupère bien le répertoire en cours.
Merci , cette fois cela fonctionne bien