• Home
 · 
• Miscellaneous
 · 
• To fill a list box with all the drives,directories and files of given attributes by using SendMessa

To fill a list box with all the drives,directories and files of given attributes by using SendMessa

To fill a list box with all the drives,directories and files of given attributes by using SendMessageAny API

API Declarations


(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam _
As Any) As Long

Const WM_USER = &H400
Const LB_DIR = &H18D
Const DIR_NORMALFILES = &H0
Const DIR_READONLY = &H8001
Const DIR_HIDDEN = &H8002
Const DIR_SYSTEM = &H8004
Const DIR_DIRECTORIES = &H8010
Const DIR_ARCHIVED = &H8020
Const DIR_DRIVES = &HC000



Rate To fill a list box with all the drives,directories and files of given attributes by using SendMessa

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim I As Long
    List1.Clear
    I = SendMessageAny(List1.hwnd, LB_DIR, DIR_DRIVES, ByVal sFileSpec)
    I = SendMessageAny(List1.hwnd, LB_DIR, DIR_DIRECTORIES, ByVal sFileSpec)
    I = SendMessageAny(List1.hwnd, LB_DIR, DIR_NORMALFILES, ByVal sFileSpec)
End Sub