Visual Basic - Problema con dos aplicaciones

Life is soft - evento anual de software empresarial
 
Vista:

Problema con dos aplicaciones

Publicado por SiC (27 intervenciones) el 18/12/2003 22:41:06
Tengo una aplicacion que al presionarse determinado boton llama a otra aplicacion que se encuentra en la misma carpeta, pero al crear el archivo de instalacion e instalarlo en una maquina, a pesar de que la segunda aplicacion esta en la misma carpeta, me dice que no encuentra la aplicacion.

para el llamar a la otra aplicacion utilizo el un a app.path para asegurarme que sea la misma carpeta en que se corre.

EL erro que me da es error 57 en el tiempo de ejecucion, No se ha encontrado el archivo.

Gracias por la ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con dos aplicaciones

Publicado por kinoscar (233 intervenciones) el 19/12/2003 01:28:17
por lo que dices lo que haces es un
i=shell(app.path & "\aplicacion.exe",1)
estoy en lo cierto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con dos aplicaciones

Publicado por SiC (1 intervención) el 19/12/2003 16:04:59
Exacto pero aun con eso no me permite abrir la segunda aplicacion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con dos aplicaciones

Publicado por kinoscar (233 intervenciones) el 19/12/2003 17:14:17
existe una api shellexecute esta ejecuta una aplicacion y un archivo a lo mejor te sirva

Private 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

Aqui va el codigo del boton

Private Sub Command1_Click()
Dim res As String

Res = ShellExecute(Me.hwnd, "Open", ruta_del_archivo, " ", " ", 1)

' en tu caso seria asi
'Res = ShellExecute(Me.hwnd, "Open", "C:\\nachodatos.txt", " ", " ", 1)

End sub

no es seguro pero quizas funcione
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar