Combine recursive listing with excluded code

[Paul_Hossler]

This loops a list of 3 folders

Within the loop, you could use Dir() to get the files, etc.

Option Explicit


Sub example3()
    Dim vPath As Variant


    For Each vPath In Array("C:\Users", "D:\Music", "L:\Quicken")
        
        MsgBox vPath & " -- " & FileDateTime(vPath)
    
    Next
End Sub