当前位置：新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 使用SendMessage枚举文件与目录

减小字体

增大字体作者：LinHaibo 来源：本站整理发布时间：2011-07-07 09:48:32

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

Private Const LB_DIR = &H18D

Private Const DDL_ARCHIVE = &H20                                                '存档文件
Private Const DDL_DIRECTORY = &H10                                              '目录
Private Const DDL_DRIVES = &H4000                                               '驱动器
Private Const DDL_EXCLUSIVE = &H8000                                            '不相容的位。如果设置了这个位，则只列出指定类型的文件；否则列出普通文件和指定类型的文件。
Private Const DDL_HIDDEN = &H2                                                  '隐藏文件
Private Const DDL_POSTMSGS = &H2000                                             'LB_DIR 标志。如果设置了LB_DIR标志，Windows将DlgDirList产生的消息放入应用程序的队列，否则，它们被直接发送到对话框过程。
Private Const DDL_READONLY = &H1                                                '只读文件
Private Const DDL_READWRITE = &H0                                               '可读写
Private Const DDL_SYSTEM = &H4                                                  '系统文件

Private Sub Form_Load()
    '枚举目录
    SendMessage List1.hwnd, LB_DIR, DDL_DIRECTORY Or DDL_EXCLUSIVE, ByVal "D:\My Documents\*"
   
    '枚举exe文件
    SendMessage List1.hwnd, LB_DIR, DDL_READWRITE Or DDL_ARCHIVE, ByVal "D:\My Documents\*.exe"
End Sub