création d'un raccourci

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

Code:

---

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.:(

Bonsoir,


c'est quoi la variable curDir ??

Code:

---

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

---

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

Code:

---

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.

Salut !

Essaye avec :

Code:

---

1 2 3 4

[...] curdir = WScript.ScriptFullName curdir = left(curdir,InStrRev(curdir,"\")) [...]

---

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