请选择 进入手机版 | 继续访问电脑版

玩酷之家

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 641|回复: 0

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

[复制链接]

92

主题

97

帖子

361

积分

中级会员

Rank: 3Rank: 3

积分
361
发表于 2018-4-28 17:37:27 | 显示全部楼层 |阅读模式
本帖最后由 vb6 于 2018-5-4 14:21 编辑

遍历指定目录及子目录所有文件函数     SearchFiles "C:\", "*.mp3"


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
    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
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )

GMT+8, 2018-12-12 15:33 , Processed in 0.162080 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表