Commande pour executer un .bat en VB? [Résolu]

Bonjour,

la commande est Shell(fichier).
exemple:

Shell("ok.bat")

(exécute le fichier ok.bat situé dans le dossier du programme. Il est possible d'éxécuter des fichiers n'étant pas dans le meme dossier en précistant le chemin)

merci j'ai trouver

Bonjour,

Certainement, pour afficher le traitement effectué dans un fichier batch dans un interface VB, il suffit d'envoyer le fichier dans un fichier text et de le lire par après pour l'afficher où tu le désires, un TextBox par exemple.

Dim test As New System.Diagnostics.Process
test.StartInfo.FileName = "CMD.exe"
test.StartInfo.Arguments = "/C Dir > c:\ttt.txt"
test.Start()

Ici la commande Dir sera renvoyé dans ttt.txt qui se créera automatiquement. Ensuite, il suffit de le lire

Dim myStream As System.io.StreamReader = Nothing

'Lire un fichier
Try
Me.Cursor.Current = Cursors.WaitCursor
myStream = New System.io.StreamReader("c:\ttt.txt")
Dim line As String
If (Not myStream Is Nothing) Then
Me.TextBox1.Text = Nothing
Do
line = myStream.ReadLine
'Permet d'inscrire le texte qui se trouve dans le fichier dans un TextBox Multiline ...
Me.TextBox1.Text &= line & vbCrLf
Loop Until line Is Nothing
myStream.Close()
End If
Catch ex As Exception
MessageBox.Show("Le fichier ne peut pas être lue")
Finally
Me.Cursor.Current = Cursors.Default
End Try


En espérant que ça puisse t'aider ... Bonne journée.

Avelone

Bonjour,

Je suis confronté au même problème.
Peux-tu me dire comment tu fais?
Merci.

Hello,

Shell("C:\Dossier\ou\se\trouve\ton\fichier\ok.bat") par exemple :)

Quant à moi j'ai une question subsidiaire qui découle directement de celle-ci, ça fait un moment que je cherche sans rien trouver...
--> Est-il possible d'afficher le défilement du batch, et ceci DANS une interface VB? Quelqu'un sait?

Ça dépend de tes besoins et de comment tu veux faire les choses, mais c'est logique et c'est possible.

Si tu lis les fichiers textes au fur et à mesure, tu n'es pas obligé d'en créé un à chaque fois, mais écraser celui que tu as déjà créé. Comme ça tu en auras qu'un seul à supprimer à la fin, si tu le désires vraiment.

Avelone

Je comprend ce que tu veux faire, ou enfin je crois, je vais te donner les grandes lignes directrices et à toi par la suite de les modifier pour que ça fonctionne dans ton cas, si tu éprouves des problèmes, fais mois signe.

Je vais faire un exemple simple, tu peux essayer avant de l'intégrer à ton code avec un fichier .bat qui fait une ligne simple : ipconfig par exemple, on nommera ce fichier ipconfig.bat que tu met sur le disque c.

Dans ton code, tu défini ton process :

Dim process As New Process
process.StartInfo.FileName = "C:\ipconfig.bat"
process.StartInfo.UseShellExecute = False
process.StartInfo.RedirectStandardOutput = True
process.StartInfo.RedirectStandardError = True
process.StartInfo.CreateNoWindow = True
process.Start()

Ensuite, tu inscris les lignes que le fichier .bat te donne dans une chaine que tu concatène en y ajoutant des retour de chariot après chaque ligne:

Dim chaine As String
Do While (process.StandardOutput.Peek >= 0)
chaine &= process.StandardOutput.ReadLine & vbCrLf
Loop

Ensuite, tu affiche ta chaine :

MessageBox.Show(chaine)

Ça devrait faire la job et je n'aurai pas besoin de venir chez vous en fin de semaine ... héhéhé

Avelone

Quel dommage \o/
Merci de tes précisions, je commence à comprendre la logique de VB; au début je n'avais pas déclaré mes actons/process aux bons endroits et j'ai dû tatonner pour que ça marche.
La si je comprends bien je redirige le résultat de ma commande batch dans un popup^^.

Je crois que je vais me faire quelques tutos sinon je vais t'innonder de questions, je suis à fond dedans en ce moment.
Merci encore de ta disponibilité Avelone,
A+

en fait, vu que DD n'est pas membre visiblement, je ne pense pas qu'on le reverra de si tôt
C'est dommage...