Uso diferente de SHELL

"Gabriel Duran" preguntó:

como puedo abrir un archivo con su propia aplicación

Hola, Gabriel:

Puedes utilizar la función API «ShellExecute»:

Private Declare Ansi Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" ( _
ByVal hwnd As IntPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer

Y la ejecutarías de la siguiente manera:

ShellExecute(Me.Handle, _
"open", _
"C:\Mis documentos\Libro1.xls", _
Nothing, _
Nothing, _
1)

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Si no deseas utilizar la API de Windows, también puedes abrir un archivo con
su propia aplicación, mediante la clase «Process» de .NET, de ésta forma,
puedes esperar a que el proceso termine:

Dim Proceso As New Process
With Proceso
.StartInfo.FileName = "C:\Mis documentos\Libro1.xls"
.StartInfo.Arguments = ""
.Start()
.WaitForExit()
End With

MsgBox("Se ha cerrado Microsoft Excel.")

Podemos decir que éste ejemplo está más acorde con el lenguaje .NET :-)

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.