Programas externos a VB6

[A.H.H]

Hola para ejecutar un archivo .exe:

Código:

Private Sub Command1_Click()
Shell ("aqui la ruta a tu archivo.exe"), vbNormalFocus
End Sub

para ejecutar comandos de cmd :

Código:

Private Sub Command1_Click()
Shell Environ("ComSpec") & " /K ECHO HOLA", vbNormalFocus
End Sub

NOTA:

si pones /C en vez de /K antes de ECHO, ejecuta el comando pero no abre la ventana de cmd.

al final de la frase de codigo ves lo de vbNormalFocus
pues hay diferentes valores como vbhide que es para ejecutar el comando invisible.

puedes hasta crear un archivo .bat en la carpeta temp por ejemplo y luego ejecutarlo.
ejemplo:

Código:

Private Sub Command1_Click()
Open Environ("temp") & "\mensaje.bat" For Output As #1
Print #1, "@ECHO OFF"
Print #1, "ECHO ESTO ES UNA PRUEBA EN BAT"
Print #1, "ECHO ESTO ES OTRA LINEA DEL BAT"
Print #1, "ECHO Y ESTO OTRA"
Print #1, "ECHO AHORA HAGO DIR"
Print #1, "PAUSE"
Print #1, "DIR"
Print #1, "PAUSE"
Print #1, "EXIT"
Close #1
Shell (Environ("ComSpec") & " /C %TEMP%\mensaje.bat"), vbNormalFocus

End Sub

ENVIRON SE USA PARA PONER LAS VARIABLES DEL SISTEMA COMO LA DE COMSPEC QUE ES LA QUE TIENE LA RUTA DEL CMD.



-------------------------------------------------------- --------------------------- ---------------------