אופיס 365 לופ על תיקיות המשנה בVBA

[אפר]

יש לי לופ שמשתמש ב Dir כדי לעבור על כל הקבצים בתיקיה
איך אני עושה לעבור על כל העץ כולל הקבצים בתיקיות המשנה?

 

[FullTime]

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

https://stackoverflow.com/questions/22645347/loop-through-all-subfolders-using-vba