[VBA] Aprire una cartella

[anatroccolo]

Questa routine legge tutti i file partendo da una radice (che può essere anche una cartella) e cicla all'interno di essa.

Dim fso As New FileSystemObject
Dim f As Folder

Public Sub ElaboraFile()

    Set f = fso.GetFolder("D:\")
    Call IOFile(f)

End Sub

Public Sub IOFile(fol As Folder)

    Dim fl As Folder
    Dim fi As File

    For Each fi In fol.Files
        Debug.Print fi.Path
    Next
    
    For Each fl In fol.SubFolders
        Call IOFile(fl)
    Next

End Sub

Ciao