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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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