Ejemplos usando el Api de windows para Visual basic

114 - Api FindExecutable

Volver al Listado Api - Anterior - Siguiente

Esta función Api nos devuelve el programa asociado , o mejor dicho el path del ejecutable asociado a una extensión de archivo determinado

Los parámetros de FindExecutable son:

FindExecutable "El archivo", "El directorio", " Buffer que retorna el ejecutable "

El siguiente ejemplo lo que hace es, cargar en un control ListBox algunas extensiones. Luego al seleccionar una, llama a la función Programa_Asociado, en la cual se le envía la extensión, por ejemplo:

Call Programa_Asociado ("TXT")

y esta función retorna el path del ejecutable, en mi caso el bloc de notas en este último ejemplo.

Colocar un control Listbox y el siguiente código fuente en un formulario

Option Explicit 'Declaración del Api FindExecutable Private Declare Function FindExecutable _ Lib "shell32.dll" _ Alias "FindExecutableA" ( _ ByVal lpFile As String, _ ByVal lpDirectory As String, _ ByVal lpResult As String) As Long 'La siguiente función retorna el Ejecutable asociado a una extensión ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Programa_Asociado(ByVal La_Extension As String) As String Dim file_Temp As String, Dir_Temp As String, f As Integer Dim ret As String, pos As Integer 'Recupera el directorio temporal de windows para crear un archivo temporal _ con la extensión a averifuar. Luego ese archivo se elimina Call Directorio_Temporal(La_Extension, Dir_Temp, file_Temp) f = FreeFile 'Genera un nuevo archivo en la carpeta temporal con la extensión Open Dir_Temp & file_Temp For Output As f 'cierra el archivo Close f 'Buffer para retornar el path del ejecutable asociado al archivo ret = Space$(1024) 'Se le pasa al Api FindExecutable el archivo, _ el directorio temporal y el buffer _ que retornará el path del programa asociado FindExecutable file_Temp, Dir_Temp, ret pos = InStr(ret, Chr$(0)) 'Quita los espacios nulos devueltos en la cadena Programa_Asociado = Left$(ret, pos - 1) 'Elimina el archivo temporal Kill Dir_Temp & file_Temp End Function Private Sub Form_Load() 'Agregamos algunas extensiones de ejemplo al control List With List1 .AddItem "htm" .AddItem "txt" .AddItem "dat" .AddItem "Avi" .AddItem "Jpg" .AddItem "Gif" .AddItem "Rtf" .AddItem "Asp" End With End Sub Private Sub Directorio_Temporal(ByVal La_Extension As String, _ ByRef Dir_Temp As String, _ ByRef file_Temp As String) Dim i As Integer 'Si no tiene el punto lo agrega If Left$(La_Extension, 1) <> "." Then La_Extension = "." & La_Extension End If 'Directorio temporal de windows Dir_Temp = Environ("TEMP") 'Si no tiene la barra la agrega If Right$(Dir_Temp, 1) <> "\" Then Dir_Temp = Dir_Temp & "\" End If i = 0 Do file_Temp = "tmp" & Format$(i) & La_Extension 'Si no existe el archivo temporal sale If Len(Dir$(Dir_Temp & file_Temp)) = 0 Then Exit Do i = i + 1 Loop End Sub Private Sub List1_Click() Dim s As String 'Mostramos el path del ejecutable s = " La extensión " & List1.Text & _ " .. se abre con el programa: " & vbNewLine & vbNewLine MsgBox s & Programa_Asociado(List1), vbInformation End Sub

Enlaces relacionados

Buscar en Recursos vb