Execution de fichier .batRésolu

Question

Bonjour &#224; tous, nouveau ici je me permets de faire ce post pour soliciter votre aide. J'ai cherch&#233; et je n'ai pas trouver comment ex&#233;cuter un fichier bat dans un programme en VB6. Je d&#233;sepaire car c'est la derni&#232;re &#233;tape pour que mon programme soit fonctionnel (C'est une inteface windows pour encoder/d&#233;coder avec le fomat MPC auquel j'essaierai de rajouter d'autres formats plus tard... par ailleur si quelqu'un connait un d&#233;compresseur MP3/Wav gratuit en msdos je suis preneur).
Voici ce que j'ai essay&#233;, commandes glan&#233;es &#231;a et la sur le site :
Dim ret As Long
ret = Shell("encodeur.bat", vbNormalFocus)
ou encore
Shell "cmd.exe encodeur.bat"
et aussi
Shell "encodeur.bat"
Sachant que le fichier est directement dans le r&#233;pertoire pas d&#233;faut de l'application (car il se g&#233;n&#232;re au moment o&#249; on en a besoin)

Merci de vos r&#233;ponses.

PS: Je posterai mon programme d&#232;s que j'aurai r&#233;solu ce probl&#232;me pour que vous le testiez ^^

cs_franckydeluka · Accepted Answer

ah oui dsl 
si ton fichier est directement dans le repertoire de ton .exe tu peux faire comme &#231;a:

   Shell (App.Path & "" & "test.bat")



Deluka.

cs_franckydeluka · Answer

salut tu oublies de donner le chemin d'acces &#224; ton .bat

    Shell "C:\dossier	est.bat"

cela lancera ton fichier .bat

bonne prog


Deluka.

benschaff · Answer

Merci de ta r&#233;ponse ma des deux mani&#232;res &#231;a ne fonctionne pas. En fait en faisant comme &#231;a VB me sort une erreur :
Run-time error "5"
Invalid procedure call or argument
donc voila je cherche toujours.

benschaff · Answer

Re-Salut avec l'heure tardive et quelques recherches j'ai trouv&#233; mon erreur. Comme j'avais oublier le B-A-BA de l'acc&#232;s au fichier et que des fois je fais pas trop gaffe, je me suis rendu compte que mon fichier n'&#233;tait pas ferm&#233;, c'est pour cela que &#231;a ne marchait pas donc au final voici mon code sur le bouton pour ceux que ca int&#233;resse (cr&#233;ation danc .bat et son ex&#233;cution (on peut faire plus rapide je pense)) :

Private Sub Command5_Click()
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fsys.CreateTextFile(App.Path & "" & "encodeur.bat")
With MonFic
For i = 0 To List1.ListCount - 1
Fichier = List1.List(i)
.writeLine "mppenc.exe " & Chr(34) & Fichier & Chr(34)
Next i
End With
MonFic.Close
Dim execution As Double
execution = Shell(App.Path & "" & "encodeur.bat", vbNormalFocus)
End Sub

Finalement ta r&#233;ponse &#233;tait bonne merci beaucoup !

remilafouine · Answer

Salut &#224; tous !

Si tu veux, je connais un lecteur muntim&#233;dia en ligne de commande, c'est MPlayer.
Normallement, c'est un programme pour Linux, mais il existe pour Windows.

Si tu d&#233;compresse le fichier Zip que tu peux trouver sur leur site, tu trouveras un fichier "mencoder.exe", qui est un encodeur/d&#233;codeur en ligne de commande. Je sais qu'il est capable detraiter des fichiers Wav, Mp3, et je crois Ogg.
Je ne sais plus vraiment, mais je crois qu'il sait aussi traiter les fichiers Wma quand ils ne sont pas prot&#233;g&#233;s par une license.

Pour information, les vid&#233;os/musiques avec license sont lisibles avec MPlayer que si vous avez Linux... mais ca marche pas avec Windows. En tout cas, mes fichiers Wma achett&#233;s marchaient sous Linux sans l'aquisition de license...

Execution de fichier .bat

5 réponses

Discussions similaires