Discussion :

[megamario]

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 :

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

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.

[l_autodidacte]

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 :

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

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)

[megamario]

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