Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/08/2007, 10:47
omarrsq
 
Fecha de Ingreso: enero-2007
Mensajes: 318
Antigüedad: 17 años, 3 meses
Puntos: 7
Iniciar una aplicación

Hola.

Estoy creando una aplicación en Visual Basic en la que quiero que al hacer click se inicie una otra aplicación. He intentado hacerlo utilizando el siguiente código, pero no me aclaro.

Cita:
Iniciado por VisualGuallabo Ver Mensaje
Esta es una función que nos permite ejecutar Cualquier Archivo siempre y cuando existe un programa para abrir dicho archivo.
Ademas ejecuta los .exe y abre directorios o unidades.
Ejemplo
Ponemos Direccion="D:/" ABRIRA UNA BENTANA con el contenido de D
Ponemos Direccion="D:/PEPE" ABRIRA UNA BENTANA con el contenido de pepe
Ponemos Direccion="D:/PEPE/doci.doc" ABRIRA doci.doc sin existe un programa para abrirlo como es elWord.

Escriba este codigo en el formulario en General:

Public Sub EjecutarArchivos(Direccion As String)
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Direccion), 1)
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error de Ejecución"
End Sub

para ejecutar solo tenemos que poner
La función
ejemplo
EjecutarArchivos "c:\nota.txt"
Por favor, echadme una mano