Shell.Run avec arguments

Version imprimable

09/07/2013, 15h45
olivier1209

Shell.Run avec arguments
Bonjour,

J'essaye de lancer la commande suivante :
Code:

1 2 strCommand = """c:\Program Files\Test\launch.exe""" & " /config:C:\sample.xml" intExit = objShell.run(strCommand,0,True)
ça me renvoie "specified file cannot be found". Donc soit j'ai un probleme avec l'espace entre "Program" et "Files" , soit c'est avec l'argument.
Je parviens à lancer la commande correctement (toute seule sans arguments). Mais si je veux en mettre un au bout ("/config:...") je m'embrouille avec les guillemets :calim2:

Merci pour votre aide,
Olivier

:salut:
Dans ce genre de situation essayez toujours d'ajouter au cours de vos tests des MsgBox pour "débugger" vos commandes et voir ce qu'il manque comme espace ou bien de guillemets etc....
Essayez ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim FileExe,Argum
FileExe = "%Programfiles%\Test\launch.exe"
Argum = "/config:C:\sample.xml"
 
RunMe FileExe,Argum
 
Function RunMe(FileExe,Argum)
    Dim Titre,ws,Command,Exec
    Titre = "Execution avec argument"
    Set ws = CreateObject("wscript.Shell")
    command = "cmd /c "& qq(FileExe) & " " & Argum &" "
    Msgbox command,64,Titre
    Exec = ws.run(command,0,True)
End Function
 
Function qq(str)
    qq = chr(34)& str &chr(34)
End Function

10/07/2013, 10h15
olivier1209

Merci pour ta réponse hackoofr
j'obtiens malheureusement toujours le même code 87 (cannot the file specified..)
:cry:
10/07/2013, 16h02
Cachlab

Bonjour,

Heu question idiote, mais si tes arguments sont fixes, pourquoi les dissocier de la ligne de commande ?

Code:

intExit = objShell.run("c:\Program Files\Test\launch.exe /config:C:\sample.xml",0,True)