vb 搜索指定目录下的指定类型文件

最新推荐文章于 2025-05-13 11:25:09 发布

weixin_30919919

最新推荐文章于 2025-05-13 11:25:09 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lano/archive/2009/12/09/1620097.html

本文介绍了一个使用VBA编写的函数，该函数可以递归地搜索指定路径下所有符合特定类型的文件。通过调用Dir函数和利用递归方法，此函数能够遍历目标目录及其子目录，收集所有匹配的文件路径。

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

代码

Function SearchFiles(Path As String, FileType As String)
    On Error GoTo ErrMsg
    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          '将文件目录和文件名组合,并存放到数组中
       listFileName.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
ErrMsg:

End Function

转载于:https://www.cnblogs.com/lano/archive/2009/12/09/1620097.html