by Mohd Muzaffar (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 4th September 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
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
No comments have been posted about To fill a list box with all the drives,directories and files of given attributes by using SendMessa. Why not be the first to post a comment about To fill a list box with all the drives,directories and files of given attributes by using SendMessa.