Ejemplos usando el Api de windows para Visual basic

164 - Listar con SendMessage archivos , carpetas y unidades

Ejemplo que utiliza el api SendMessage para listar en un control ListBox directorios , ficheros y unidades

En el primer parámetro de SendMessage se debeindicar el control ListBox ( Su HWND )

El segundo parámetro ( wMsg ) se utiliza el mensaje LB_DIR.

El tercer parámetro ( wParam ) se indica unos flags que indica si listará Solo archivos, Archivos y carpetas, o unidades

El último argumento ( lParam ) , se debe indicar el path o ruta.

Nota: Hay una función de ajuste llamada Listar

Ejemplos

Esto obtiene todos los archivos .bat del directorio c: y los agrega al List1

Listar "c:\*.bat", List1,SOLO_ARCHIVOS

Lo siguiente obtiene todos los archivos y carpetas del directorio d: y los agrega al List1. ( No incluye SubDirectorios )

Listar "d:\*.*", List1, CARPETAS_ARCHIVOS

Para listar los Drives, de debe pasar como path un valor Nulo

Listar vbNull, List1, DRIVES

Código fuente

Option Explicit ' Declaración del Api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal Hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long ' Constantes y mensajes para SendMessage Private Const LB_DIR = &H18D ' Enum para los Flags Enum EOpcion CARPETAS_ARCHIVOS = 16 + 32 SOLO_ARCHIVOS = 32 + 4 + 2 DRIVES = 16384 End Enum Sub Listar(Path As String, ListBox As ListBox, Opcion As EOpcion) If Opcion = CARPETAS_ARCHIVOS Then ' Directorios y archivos SendMessage ListBox.Hwnd, LB_DIR, Opcion, ByVal Path ElseIf Opcion = SOLO_ARCHIVOS Then ' Solo los archivos SendMessage ListBox.Hwnd, LB_DIR, Opcion, ByVal Path Else ' Drives SendMessage ListBox.Hwnd, LB_DIR, Opcion, ByVal Path End If End Sub

Relacionados

Buscar en Recursos vb