Lanzar Aplicación asociada a una extensión

Este ejemplo lanza la aplicación que tiene asociado el fichero que se envía, es decir, si se le pasa un fichero fichero.wri, intentara abrir el fichero indicado con el WordPad, o fichero.doc con MSWord.

Option Explicit
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

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Const SW_HIDE As Long = 0
Const SW_SHOWNORMAL As Long = 1
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWNOACTIVATE As Long = 4
Const SW_SHOW As Long = 5
Const SW_MINIMIZE As Long = 6
Const SW_SHOWMINNOACTIVE As Long = 7
Const SW_SHOWNA As Long = 8
Const SW_RESTORE As Long = 9
Const SW_SHOWDEFAULT As Long = 10

Sub Lanzarfichero(Fichero As String, RutaFichero as string)
    Dim Scr_hDC As Integer, Ventana As Integer
    Scr_hDC = GetDesktopWindow()

    Ventana = ShellExecute(Scr_hDC, "Open", Fichero, "", RutaFichero, SW_SHOWMAXIMIZED)
End Sub

Private Sub Form_Load()
    Lanzarfichero ("fichero.doc", "C:")
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s