Probleme obscure avec shell

Salut , j'ai un probleme avec mon code VB6

Voilà le programme doit lancer un fichier bat dont le chemin est variable.

J'ai donc mis une option qui permet de sauvegarder le chemin dans un fichier ini.

Quand on choisit son chemin manuellement le bat se lance sans probleme.

Mais quand le chemin est déjà chargé les bat ne se lance pas la form clignote un coup c'est tout.

Voici les différentes partie du code de mon programme qui pourraient vous aider.

Lancement du bat :

Code:

---

1 2 3 4 5 6 7

Private Sub Command1_Click()   toopen = Text2.Text & "launch.bat"   Shell (toopen)   End Sub

---

Sélection du chemin :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub Command3_Click()   CommonDialog1.DialogTitle = "Select CoH Directory" CommonDialog1.CancelError = True CommonDialog1.Filter = True CommonDialog1.Filter = "CoH Executable |RelicCOH.exe" CommonDialog1.FilterIndex = 1 CommonDialog1.InitDir = "C:\" ' 'Définition de la routine de renvoi d'erreur   'Affichage de la boîte de dialogue CommonDialog1.ShowOpen   nom2 = CommonDialog1.FileName   nombrel = Len(nom2)   nombrel2 = nombrel - "12"   nom3 = Left(nom2, nombrel2)     Text2.Text = nom3   File1.Path = Text2.Text             Optionini = App.Path & "config.ini"   MsgBox Optionini   EcritDansFichierIni "Option", "CohFolder", Text2.Text, Optionini   End Sub

---

Chargement automatique du chemin:

Code:

---

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

Private Sub Form_Load()   Optionini = App.Path & "config.ini"   Text2.Text = LitDansFichierIni("Option", "CohFolder", Optionini, 100)   File1.Path = Text2.Text         End Sub

---

Merci d'avance pour votre aide.

Les code pour charger du bat sont ceux qui viennent de votre FAQ

Il serait utile de faire un debugue de Text2.Text juste avant File1.Path = Text2.Text, vue d'ici il est probable que le chemin construit n'est pas valide.

Code:

---

MsgBox "valeur de Text2.Text : " & Text2.Text, vbInformation

---

J'ai fais et j'obtiens bien "D:\jeux\Company of Heroes\" ce qui est bon.

je sais que mon code est confus donc si vous ne comprenez pas quelque choses vous pouvez toujours me demander à quoi ça correspond.

Edit : Et autre chose qui prouve qu'il est valide c'est que la liste des fichier (File1) fonctionne très bien.

Citation:

---

Shell (toopen)

---

Shell sert a faire executer un programme donc il manque le programme
Cela devrait etre :
Shell "D:\jeux\Company of Heroes\launch.bat"
Donc
Shell Text2.Text & "launch.bat"

UI mais je fixe une variable " toopen = Text2.Text & "launch.bat" "

puis je fais " Shell (toopen) "

je vais essaier avec shell text2.text & "launch.bat"

J'ai essayer toujours le même problème.

Si il faut poster tout les code je veux bien.

j'ai dû oublier le \ :oops:

Code:

---

1 2	toopen = Text2.Text & "\launch.bat" Shell toopen

---

Ben non Puisque text2.text est égal à "D:\jeux\Company of Heroes\" je ne pige vraiment rien à ce problème.

ce n'est pas encore encore un probléme d'espace dans des noms de répertoires fichiers ...?

essai :

Code:

---

Shell """" & Text2.Text & "launch.bat"""

---

Marche pas :'(

ce problème va me rendre fou , il n'y a pas moyen d'utiliser une autre commande à la place de shell?

Pour voir s'il ne s'agit pas d'un probleme hors vb, essaye ceci

Code:

---

1 2 3

Private Sub Command1_Click() Shell "calc.exe", vbNormalFocus End Sub

---

cela devrait lancer la calculatrice windows (pas besoin de preciser ou se trouve le programme calc car il se trouve sur le path standard de windows)

Il arrive à l'ouvrir sans probleme.

bonsoir

essais de mettre un commandButton sur la form, dans la procedure Command1_Click met le code suivant:

Code:

---

1 2 3 4 5 6 7

On Error Resume Next   Shell "D:\jeux\Company of Heroes\launch.bat", vbNormalFocus If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description, vbInformation On Error GoTo 0 End If

---

Si sa fonctionne, c'est que le contenu de Text2.Text et/ou toopen n'est pas identique à D:\jeux\Company of Heroes\launch.bat