Programas externos a VB6

[CelciusB]

Hola, me gustaría saber que código se debe usar para que al dar click en un botón de visual basic 6 este me abra un archivo de extensión .exe

Y también si por medio de botones en VB puedo ejecutar tareas propias del cmd.

Gracias

[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.



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