Youtube.com/VbaA2z (subscribe for new videos every weekend!): VBA to Loop Through All Sub-folders

VBA to Loop Through All Sub-folders

sub DoFolder_Test()
    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

Youtube.com/VbaA2z (subscribe for new videos every weekend!)

Search

VBA to Loop Through All Sub-folders

No comments:

Post a Comment