最新推荐文章于 2024-07-03 12:33:01 发布

原创最新推荐文章于 2024-07-03 12:33:01 发布 · 481 阅读

0 ·

CC 4.0 BY-SA版权

这是一个VB函数，能够遍历指定目录及其子目录下的所有文件，同时支持按特定文件类型进行筛选。通过递归方式实现深度搜索，将找到的文件路径添加到列表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个函数可以遍历指定一个目录下的所有文件,包括子目录.也可以指定文件类型遍历。

Private Function SearchFiles(Path As String, FileType As String)
Dim Files() As String '文件路径
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 '将文件目录和文件名组合,并存放到数组中
List1.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件

DoEvents '让出控制权
Loop

sPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹

Do While Len(sPath) '循环到没有文件夹为止

If Left(sPath, 1) <> "." Then '为了防止重复查找
If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If

sPath = Dir '查找下一个文件夹

DoEvents '让出控制权
Loop

For c = 1 To b '使用递归方法，遍历所有目录
SearchFiles Folder(c), FileType
Next

End Function