VB 使用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

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

摘自：网络整理

相关文章参考：

※利用VB函数Dir()实现递归搜索目录

※VB获取windows各常用目录的函数（模块）

※怎样用VB获得Windows各类系统目录

※VB判断文件及目录的存在性

※谈vb目录文件操作的三种方法－1

※谈vb目录文件操作的三种方法－2

※VB 使用SendMessage枚举文件与目录

---

★VB部分相关文章推荐：

---

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 获取汉字拼音的首字母

☆VB 汉字字符串转换成拼音

☆VB判断指定名字的进程是否存在函数

☆VB 两种方法实现热键

☆VB 使用SendMessage枚举文件与目录

☆VB 二进制数组与十六进制字符串相互转换

☆VB 二进制数据读写实例

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

☆VB 判断是否文本文件

☆VB 读取UTF-8编码文件函数

☆VB 按指定编码格式写入文本文件

☆VB UTF-8 URL编码函数

☆VB 实现UTF-8 与GB2312互转

☆VB 设置ListView中指定一行的背景颜色

☆VB SendMessage向其他程序窗口发送字符串消息实例

☆VB Listview导出到CSV文件函数

☆vb卸载所有窗体

☆VB中Null, Empty, Nothing, and vbNullString的区别

☆利用API函数计算程序运行时间VB

☆获取快捷方式原文件路径vb路径

☆利用VB函数Dir()实现递归搜索目录

☆VB数组的清除和重新定义

☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)

☆获取对象的接口信息(方法/属性/事件)(VB6代码)

☆VB6中给数组赋值的限制

☆[vb]一些窗口消息的详解

☆VB直接播放EXE文件中的声音文件

☆VB中利用CopyMemory使用指针

☆VB读写注册表的三种方法

☆[VB]SaveSetting 语句 和 DeleteSetting 语句

☆VB APP对象属性一览表 + 灵活使用VB的APP对象

☆[vb]SendMessageA函数

☆使用VB绘制抛物线动画曲线

☆关于vb中的容器

☆[vb]利用WScript.Shell对象隐藏cmd命令行运行

☆浅析VB For Each.Next语句

☆VB中窗体模块、标准模块、类模块的区别

☆引用 VB类模块

☆VB中什么是类，类模块有什么作用

☆VB SendKeys 语句

☆VB 全局热键

☆用VB轻松调用其他程序

☆vb读取txt文件到textbox

☆如何去优化你的VB程序3

☆如何去优化你的VB程序2

☆如何去优化你的VB程序1

☆[VB]在状态栏中显示帮助信息

☆[VB]把屏幕保存为图像

☆Mp3Play.ocx控件让音乐之声响起来

---

更多精彩>>>