abrir archivos desde aplicacion en VB

JuanBC
19 de Enero del 2005
Hola, Mi nombre es Juan, estoy realizando una aplicacion para gestionar proyectos realizados en excel o word, la aplicacion va a mostrar la ruta de los archivos, el formato, la fecha y la persona que lo ha hecho, necesito un boton que se llame "Abrir", que cuando lo pulse me ejecute el archivo que tenemos seleccionado.

Sabeis alguna funcion que ejecute un archivo con su correspondiente programa?

Gracias de antemano.

en?
19 de Enero del 2005
hola JuanBC,

existe la API de Windows ShellExecute, que puede abrir ficheros ejecutables, o documentos con su aplicación asociada.

Pega la declaración de la función como Private en el formulario donde se ejecutará, o como Public en un módulo si puede ser llamada por más de un formulario:

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


Y en tu botón "Abrir"

Private Sub Command1_Click()
Dim hVal As Long

hVal = ShellExecute(Me.hwnd, "Open", "C:...RUTA...FICHERO.EXT", vbNullString, vbNullString, 1)
End Sub

Si la función devuelve un valor menor de 33, se ha producido un error, sinó hVal tendrá asignado el handle de la aplicación.