Pb Shell fenetre ms-dosRésolu

Question

Bonjour,

Est il possible avec la commande shell d'activer la fenetre ms dos et de pouvoir y acc&#233;der. Dans mon cas, la fen&#234;tre s'ouvre mais se referme aussi tot et si j'essaie de faire une pause(sleep) la fenetre n'est pas accessible. Voici mon code  
Dim chem As String
Dim ret As Double
chem = Pathexe & "\GPRESULT.exe " & "\" & Nomserveur
ret = Shell(chem, vbMaximizedFocus)
Merci d'avance

Niko

cs_rene38 · Accepted Answer

Bonjour
Activer la fen&#234;tre MS-DOS : 
ret = Shell("cmd.exe") sous XP
ret = Shell("c0mmand.com") sous win9x

cbnet · Answer

Pour lancer une commande dos depuis vb :

Shell "cmd /c " & ta_commande

Tu parlais d'une pause ? Shell "cmd /c echo Coucou & pause"

Tu veux recup les resultats de la commande netstat dans un fichier par
ex ? (vbhide > pour qu'on ne voit pas la fenetre s'executer)

Shell "cmd /c netstat -an > C:
etstat.txt", vbHide

Et apres tu peux les interpreter avec vb en ouvrant le fichier etc...

Tu peux aussi executer un script batch temporaire :

Dim Script As String

Script = "@echo off" & vbCrLf & "echo Liste des partages reseaux :" & vbCrLf _

& "net share" & vbCrLf & "Pause"

Open "C:	emp_script.bat" For Output As #1

    Print #1, Script

Close #1
Shell "C:	emp_script.bat"



Apres si tu veux juste ouvrir le dos, fais comme t'as dit rene38...

Bon voila c'est juste des exemples, juste pour dire que tu peux tout faire...

Pb Shell fenetre ms-dos

2 réponses

Discussions similaires