精彩编程与编程技巧-如何在VB中实现目录遍历...

如 何 在VB 中 实 现 目 录 遍 历 
中 兴 新 太 数 据 通 信 有 限 公 司 
张 易 平 
---- 看 了 九 九 年 第 七 期E18 版 中《 子 目 录 级 文 件 查 询 的 实 现》 一 文， 为 便 于 读 者 方 便 使 用， 本 人 将 在VB 中 实 现 目 录 遍 历 需 要 注 意 的 地 方 及 代 码 提 供 给 读 者， 希 望 能 对 大 家 有 所 帮 助。 以 下 代 码 在PWIN97、VB6 下 测 试 通 过。 

一、API 函 数 的 声 明、 自 定 义 数 据 类 型 及 常 量 的 定 义 
---- 注 意：API 函 数 的 声 明 应 在 应 用 程 序 的 代 码 模 块 中 进 行， 且 一 条 声 明 必 须 放 在 一 行 中'API 函 数 的 声 明 
Public Declare Function FindFirstFile Lib
 "kernel32" Alias "FindFirstFileA" 
(ByVal lpFileName As String, 
lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib
 "kernel32" Alias "FindNextFileA" 
(ByVal hFindFile As Long, lpFindFileData
 As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib
 "kernel32" (ByVal hFindFile As Long) As Long

'最大路径长度和文件属性常量的定义
Public Const MAX_PATH = 260
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

'自定义数据类型FILETIME和WIN32_FIND_DATA的定义