vba - 使用 VBA 循环遍历所有子文件夹

Question

这个问题已经有答案了:

Cycle through sub-folders and files in a user-specified root directory [duplicate] (3 个回答)

已关闭 9 年前。

我正在寻找一个 VBA 脚本，该脚本将循环指定文件夹的所有子文件夹。当我说所有子文件夹时，我的意思是指定文件夹内的每个文件夹，以及该文件夹内的每个文件夹，以及该文件夹内的每个文件夹......理论上可能有无限嵌套的子文件夹，但实际上它可能不会超过 3 个或 4.我正在使用 VBA 脚本运行时对象，因此一旦循环进入文件夹，我就可以检查某些文件的属性(但我知道如何执行该部分)。

感谢您的帮助!

这个问题与前面包含已知目录的问题中列出的“类似”问题不同，而这里的需要是查找已知和未知目录。还需要多层子目录。你们真的应该在发出“重复”之前先阅读这个问题。

Answer 1

只是一个简单的文件夹深入分析。

sub sample()
    Dim FileSystem As Object
    Dim HostFolder As String

    HostFolder = "C:\"

    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    DoFolder FileSystem.GetFolder(HostFolder)
end  sub

Sub DoFolder(Folder)
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        ' Operate on each file
    Next
End Sub