【Excel VBA 编程】第83讲:GetFolder高级应用,一键获取目录及子目录所有文件

2.1 递归函数实现

目前最常用的方法也是重点推荐的：通过创建 FileSystemObject 对象来访问文件系统，并使用递归函数遍历所有子文件夹

此方法的核心逻辑：首先遍历当前文件夹下的所有文件，将获取到的文件列表输出到活动工作表的A列；然后对其下每一个子文件夹，再次调用自身函数进行遍历

其实现过程可参考以下代码：

Private Sub TraverseFolder(ByVal folder As Object)    Dim subFolder As Object    Dim file As Object    ' 遍历当前文件夹下的所有文件    For Each file In folder.Files        ' 将信息写入Excel工作表，如：        Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Value = file.path    Next file    ' 遍历当前文件夹下的所有子文件夹，并对每个子文件夹递归调用本函数    For Each subFolder In folder.SubFolders        Call TraverseFolder(subFolder) ' 递归调用    Next subFolderEnd Sub

为了深入理解上述递归函数，我们可以从“递归三要素”这一核心框架入手进行解读：

• 终止条件：当传入的 folder 对象没有子文件夹（即 folder.SubFolders 集合为空）时，函数在处理完当前文件夹的文件后，退出循环

• 自身调用语句：Call TraverseFolder(subFolder)

• 体现“推进”的代码：关键就在于 For Each subFolder In folder.SubFolders 循环内的那句 Call TraverseFolder(subFolder)，将函数每次处理的目标，从“当前文件夹”变成了“当前文件夹的某个子文件夹”，问题的“深度”或“范围”明确地缩小

2.2 测试递归函数功能

那么如何调用以上的递归函数呢？可以参考以下测试代码：

Sub GetAllFilesByFSO()    Dim fso As Object    Dim startFolder As String    ' 1. 设置要遍历的起始文件夹路径    startFolder = "D:\常用文件" ' 请修改为你的目标路径    ' 2. 创建FileSystemObject对象    Set fso = CreateObject("Scripting.FileSystemObject")    ' 3. 调用递归函数开始遍历    Call TraverseFolder(fso.GetFolder(startFolder))    MsgBox "遍历完成！结果已输出至活动工作表A列。"End Sub

执行GetAllFilesByFSO前，修改startFolder的内容，确保是正确的路径，路径末尾的“\”可加可不加，不影响

执行后结果可参考如下图：

• 使用file.Name获取文件名称

• 使用file.Type获取文件类型

• 使用file.Size获取文件大小

• 使用file.DateCreated获取创建时间

• 使用file .DateLastModified获取修改时间

•      ......