VB实现指定文件夹内文件遍历.docxVIP

PAGE PAGE #/ 3 VB实现指定文件夹内文件遍历 本程序实现遍历指定文件夹内文件，并将其显示到 ListBox 中 （1）窗体如下 （2）代码 遍历文件 Private Sub Command2_Click（） 调用SearchFiles函数，将遍历的文件内容路径及文件名称列到 List控件中 * 号表示多个任意字符 SearchFiles App.Path \TEMP, *查找应用程序即本程序 TEMP文件中所 有文件如果是查找所有txt文件则”* txt,此处可设置过滤条件End Sub 遍历函数 Private Function SearchFiles(Path As String, FileType As String) Dim Files()As Stri ng 文件路径 Dim Folder() As String 文 件夹路径 Dim a, b, c As Long Dim sPath As String If Right(Path, 1) \ Then Path = Path \ sPath = Dir(Path FileType)查找第一个文件 Do While Len(sPath) 循 环到没有文件为止 a = a + 1 ReDim Preserve Files(1 To a) Files(a) = Path sPath将文件目录跟文件名组合，并存放到数组中 Listl.Addltem Files(a)加入 List控件中 sPath = Dir 查 找下一个文件 DoEvents 让出控制权 Loop sPath = Dir(Path \, vbDirectory) 查找第一个文件夹 Do While Len(sPath) 循 环到没有文件夹为止 lf Left(sPath, 1) . Then 为 了防止重复查找 lf GetAttr(Path \ sPath) And vbDirectory Then 如果是文件夹 则。。。。。。 b = b + 1 ReDim Preserve Folder(1 To b) Folder(b) = Path sPath \ 将目录跟文件夹名称组合形成新的目录，并存 放到数组中 End lf End lf sPath = Dir 查 找下一个文件夹 DoEvents 让出控制权 Loop For c = 1 To b 使 用递归方法，遍历所有目录 SearchFiles Folder(c), FileType Next End Function APP.Path 那注意：TEMP APP.Path 那 句含义所在