Ejecutar aplicacion externa desde VB 6

[Loopen]

                                Hola, queria saber si hay alguna forma sencilla de ejecutar una aplicacion externa (de linea de comandos) desde VB 6

Espero vuestras respuestas!!                                

[Mars Attacks]

                                Puesssss creo que con esta cabecera:

Código [Seleccionar] Expand



Declare Function ShellExecute Lib "shell32.dll" _

   Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _

   lpOperation As String, ByVal lpFile As String, ByVal _

   lpParameters As String, ByVal lpDirectory As String, _

   ByVal nShowCmd As Long) As Long



y este código:

Código [Seleccionar] Expand



sFile = "system32notepad.exe"



noth = ShellExecute(0, "OPEN", _

Environ("SystemRoot") & sFile, "", "", 1)



te abriría el notepad. No sé qué significa cada elemento del parseo pero ShellExecute es tu orden (me parece, no tengo ni zorra de VB pero anoche leí por casualidad un programa que ejecutaba cosas).[/code]                                

[Geo]

                                pues yo he intentado con lo siguiente:

Código [Seleccionar] Expand



Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long


y luego:

Código [Seleccionar] Expand



Resultado = WinExec("notepad.exe hola.txt", 1)


y me abre el archivo hola.txt en el notepad, claro que el hola.txt se encuentra en la misma carpeta que el notepad, o se envía la ruta completa de carpetas donde está hola.txt                                

[[EX3]]

                                Y no es mas sencillo usar la simple funcion del VB "Shell()"?

Sintaxis:

Código [Seleccionar] Expand

Shell ([Ruta y/o nombre de programa], [Estilo de presentacion]) As Double
El primer parametro es simplemente la direccion y nombre del programa ejecutable.
El segundo parametro es la forma de presentar la ventana (Nomal, Maximizada, Minimizada, etc...)

Abrimos el block de notas tal cual. Ejemplo:

Código [Seleccionar] Expand

Private Sub Form_Load()

Shell "c:windowsnotepad.exe", vbNormalFocus

End Sub



Abrimos el block de notas y le decimos que abra el archivo texto.txt que se encuentra en c:. Ejemplo:

Código [Seleccionar] Expand

Private Sub Form_Load()

Shell "c:windowsnotepad.exe c:texto.txt", vbNormalFocus

End Sub



Como puedes ver es la manera más sencilla que tiene VB de llamar a un programa externo.

Salu2...

[EX3]                                

[Loopen]

                                Perdonad pero no he podido contestar antes, os agradezco todos vuestras respuestas, al final encontre una forma, es la propuesta por EX3. Ademas parece la mas sencilla.


Muchas gracias a todos por tomaros interes en mi pregunta y  FELIZ NAVIDAD!!!