用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 遍历指定目录及子目录所有文件函数

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-07-08 09:38:49

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

VBScript code复制代码
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

'调用示例
Private Sub Form_Load()

    ' * 星号表示多个任意字符
     SearchFiles "C:\Program Files\WinRAR\", "*" '查找所有文件
    
  '  SearchFiles "C:\Program Files\WinRAR\", "*.exe" '查找所有exe文件
  '  SearchFiles "C:\Program Files\WinRAR\", "*in*.exe" '查找文件名中包含有 in 的exe文件

End Sub

Tags:VB 文件遍历

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      88%(14)
  • 差的评价 如果您觉得此文章差,就请您
      13%(2)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 3 条,得分 300 分,平均 100 分) 查看完整评论
[回复] 3游客   打分:100 分  发表时间:2016-01-19
· 查找文件没有问题,似乎不能查找第一个文件夹。
[回复] 2游客   打分:100 分  发表时间:2015-10-29
· 我用到了.
[回复] 1vb游客   打分:100 分  发表时间:2015-06-25
· 很好,非常有用!