Exécuter une commande Shell avec des espaces à partir du code.

Bonjour à tous,

J'ai un souci avec la commande Shell en VB6 à cause des espaces dans les chemins.

J'ai ajouté les "" mais rien a faire.

Voici ma commande à exécuter:

Code:

---

1 2 3 4

Dim s as string s = App.Path & "\Securit\CMInstall.exe /p " & Chr$(34) & App.Path & Chr$(34) & " /k"   Shell "C:\Windows\System32\cmd.exe /K " & s

---

s = D:\Developpement\Licence Install\Securit\CMInstall.exe /p "D:\Developpement\Licence Install" /k

Si je lance manuellement cette commande (s) dans l'invite de commande, cela fonctionne.

Mais si j’exécute la ligne complète comme ce que j'indique dans le Shell:

C:\Windows\System32\cmd.exe /K "D:\Developpement\Licence Install\Securit\CMInstall.exe" /p "D:\Developpement\Licence Install" /k

Cela m'indique:
'D:\Developpement\Licence' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un ficheir de commande

Auriez vous une idée, merci.

D'une part, il y a une erreur de syntaxe dans la ligne de commande
D'autre part, tu peux t'épargner ce casse-tête de guillemets en utilisant l'objet FileSystemObject par exemple :

Code:

---

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

Option Explicit   Dim S As String, FSO As New FileSystemObject   Private Sub Command1_Click() Dim Short1$, Short2$ Short1 = FSO.GetFolder("D:\Developpement\Licence Install\Securit").ShortPath Short2 = FSO.GetFolder("D:\Developpement\Licence Install").ShortPath S = "C:\Windows\System32\cmd.exe /C " & Short1 & "\explorer.exe /Select, " & Short2 ' S = App.Path & "\Securit\CMInstall.exe /p " & Chr$(34) & App.Path & Chr$(34) & " /k" Shell S End Sub

---

J'ai remplacé ton exécutable avec Explorer.exe mais en conservant les chemins et légèrement la ligne de commande(argument ou commutateur pour explorer.exe)

Bonjour,

Désolé j'ai pas reçus d'email de notification, ce n'est pas dans mes habitudes de ne pas répondre. En faisant le ménage dans mes abonnements je me suis aperçus que vous m'aviez répondu.

Je vous remercie donc pour votre intervention, je vais regarder cela rapidement.

[EDIT]

Cela fonctionne.

Merci encore