Création d'un raccourci avec des parametres

Bonjour,
je tente de faire un raccourci avec des parametres, cependant je n'arrive pas à obtenir le bon resultat dans mon fichier lnk.
voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Shell, DesktopPath, URL, Dossier, oFS Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set URL = Shell.CreateShortcut(DesktopPath & "\monraccourci.lnk") Set oFS = CreateObject("Scripting.FileSystemObject") Dossier = left(wscript.ScriptFullName,len(wscript.ScriptFullName)-len(wscript.ScriptName)) URL.IconLocation = Dossier & "icone.ico" chemin = """"& Dossier & "monexec.exe"" -para monparametre" msgbox URL.TargetPath = chemin URL.Save SET oFS = nothing

---

La messagebox m'affiche le bon résultat, alors que mon racourcis contient:

Citation:

---

"C:\"C:\Documents and Settings\Administrateur\Bureau\monexec.exe" -para monparametre"

---

qqu'un aurait-il une solution pour obtenir:

Citation:

---

"C:\Documents and Settings\Administrateur\Bureau\monexec.exe" -para monparametre

---

Merci d'avances de vos réponse.

F-k-z

Essaye de remplacer ces deux lignes :

Code:

---

1 2 3

chemin = """"& Dossier & "monexec.exe"" -para monparametre" URL.TargetPath = chemin

---

par ces deux lignes :

Code:

---

1 2	URL.TargetPath = Dossier & "monexec.exe" URL.Arguments = "-para monparametre"

---

Yop,
cela marche nickel merci bcp :)
(faudrait voir pour mettre sa dans la faq :] )
++

F-k-z