Discussion :

[f-k-z]

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 :

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

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:

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

qqu'un aurait-il une solution pour obtenir:

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

Merci d'avances de vos réponse.

F-k-z

[opsi]

Essaye de remplacer ces deux lignes :

Code :

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

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

par ces deux lignes :

Code :

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

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

[f-k-z]

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

F-k-z