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