求一个检索遍历指定文件夹下子文件夹以及他下面文件的vb6...

　　求一个检索遍历指定文件夹下子文件夹以及他下面文件的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的定义
　　Public Type FILETIME
　　dwLowDateTime As Long
　　dwHighDateTime As Long
　　End Type

　　Public Type WIN32_FIND_DATA
　　dwFileAttributes As Long
　　ftCreationTime As FILETIME
　　ftLastAccessTime As FILETIME
　　ftLastWriteTime As FILETIME
　　nFileSizeHigh As Long
　　nFileSizeLow As Long
　　dwReserved0 As Long
　　dwReserved1 As Long
　　cFileName As String * MAX_PATH
　　cAlternate As String * 14
　　End Type
　　二、 去 掉 固 定 长 度 字 符 串 右 边 的NULL 字 符(ASCII 值 为0) 和SPACE 字 符(ASCII 值 为32)
　　---- 由 于 数 据 类 型WIN32_FIND_DATA 的cFileName 元 素 为 定 长 数 据 类 型 且 在 执 行 函......黄莺鸣翠柳 紫燕剪春风 莺歌燕舞

、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的定义
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
二、 去 掉 固 定 长 度 字 符 串 右 边 的NULL 字 符(ASCII 值 为0) 和SPACE 字 符(ASCII 值 为32)
---- 由 于 数 据 类 型WIN32_FIND_DATA 的cFileName 元 素 为 定 长 数 据 类 型 且 在 执 行 函......一年好运随春到 四季彩云滚滚来 万事如意