Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As String) As Long Public Const LB_DIR = &H18D Public Const DDL_READWRITE = &H0 Public Const DDL_READONLY = &H1 Public Const DDL_HIDDEN = &H2 Public Const DDL_SYSTEM = &H4 Public Const DDL_DIRECTORY = &H10 Public Const DDL_ARCHIVE = &H20 Public Const DDL_DRIVES = &H4000 Public Const DDL_EXCLUSIVE = &H8000 Public Const DDL_POSTMSGS = &H2000 Public Const DDL_FLAGS = DDL_ARCHIVE Or DDL_DIRECTORY Private Sub Command1_Click() Dim r As Long Dim pathSpec As String 'fill the listbox pathSpec = "c:\windows\system\*.*" r = SendMessageStr(List1.hwnd, LB_DIR, DDL_FLAGS, pathSpec) End Sub |