EXCEL-VBA：递归遍历文件夹及子文件夹中的文件

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

小鸿叔

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

阅读量2.8w

点赞数 5

分类专栏： VBA OFFICE-EXCEL 文章标签：递归遍历文件夹子文件夹文件

本文链接：https://blog.csdn.net/jyh_jack/article/details/78037983

版权

OFFICE-EXCEL 同时被 2 个专栏收录

52 篇文章 5 订阅

订阅专栏

VBA

42 篇文章 17 订阅

订阅专栏

    Const SearchPath = "D:\PDF\"
    
    Dim DicList, FileList, I, FileName(), FilePath()
    Set DicList = CreateObject("Scripting.Dictionary")
    Set FileList = CreateObject("Scripting.Dictionary")
    
    DicList.Add SearchPath, ""  '初始化目录
    
    '**************遍历所有目录*******************
    I = 0
    Do While I < DicList.Count
        Key = DicList.Keys '本次要遍历的目录
        NowDic = Dir(Key(I), vbDirectory) '开始查找
        Do While NowDic <> ""
            If (NowDic <> ".") And (NowDic <> "..") Then
                If (GetAttr(Key(I) & NowDic) And vbDirectory) = vbDirectory Then '找到子目录，则添加
                    DicList.Add Key(I) & NowDic & "\", ""
                End If
            End If
            NowDic = Dir() '再找
        Loop
        I = I + 1
    Loop
    '****************************************************
    
    '**************遍历目录中的所有文件*******************
    For Each Key In DicList.Keys '查找所有目录中的文件
       NowFile = Dir(Key & "*.pdf")
       Do While NowFile <> ""
            FileList.Add NowFile, Key 'Add(Key,Item)  FileList.Key=文件名,FileList.Item=目录
            NowFile = Dir()
       Loop
    Next
    FileName() = FileList.Keys
    FilePath() = FileList.Items
    '****************************************************