Ejemplos usando el Api de windows para Visual basic

276 - SHGetFileInfo - Obtener descripción de archivo

Ejemplo en Visual basic de la función de windows ShGetFileInfo.

Esta función sirve para recuperar información de archivos, carpetas y unidades del sistema, como por ejemplo atributos, íconos asociados y el nombre del archivo, aunque en este ejemplo en vb6 solo se muestra como recuperar la información del tipo de archivo utilizando el flag SHGFI_TYPENAME

Notas : En estos dos enlaces se pueden ver una descripción completa de la función, junto con la descripción de sus parámetros, y flags posibles para pasar a dicha Api : SHGetFileInfo - winapi.conclase.net - SHGetFileInfo Msdn

Ejemplo

Controles : Agregar un control File y un control Dir al frm principal.

Código fuente en un formulario

Option Explicit ' -- Constante / flag para indicar a SHGetFileInfo ' -- que devuelva la descripción de archivo Private Const SHGFI_TYPENAME As Long = &H400& ' -- Type para el parámetro psfi de la función ShellFileInfo Private Type ShellFileInfoType hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * 260 szTypeName As String * 80 End Type ' -- Declaración Private Declare Function SHGetFileInfo Lib _ "shell32.dll" _ Alias "SHGetFileInfoA" ( _ ByVal pszPath As String, _ ByVal dwFileAttributes As Long, _ psfi As ShellFileInfoType, _ ByVal cbFileInfo As Long, _ ByVal uFlags As Long) As Long ' ---------------------------------------------------------------------------------- ' \\ -- Devolver un string con la descripción del tipo de archivo ' ---------------------------------------------------------------------------------- Function GetFileType(ByVal sPath As String) As String On Error GoTo error_handler Dim ret As Long Dim FI As ShellFileInfoType ' -- Enviar la ruta al parámetro pszPath, el flag SHGFI_TYPENAME ' -- para retornar en FI la información Call SHGetFileInfo(sPath, 0, FI, Len(FI), SHGFI_TYPENAME) ' -- Obtener en ret la posición del primer Caracter nulo ( Chr(0)) ret = InStr(1, FI.szTypeName, Chr$(0)) - 1 ' -- Retornar la descripción del tipo del archivo sin los caracteres nulos GetFileType = Left(FI.szTypeName, ret) Exit Function error_handler: End Function ' ---------------------------------------------------------------------------------- ' \\ -- Mostrar el tipo de archivo al hacer clic en el Item del control File ' ---------------------------------------------------------------------------------- Private Sub File1_Click() MsgBox GetFileType(Dir1.Path & "\" & File1.FileName), vbInformation End Sub

Relacionados

Obtener tipo ,el tamaño, la fecha, los artibutos y otras propiedades

Buscar en Recursos vb