Ho trovato questa routine
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim f As Folder

Set f = fso.GetFolder("c:\")

Call ScanDir(f)

End Sub


Public Sub ScanDir(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 ScanDir(fl)
Next
End Sub

L'ho provata ma mi dice che non la riconosce come macro. Dove è l'errore?