hai ragione!!! è stata una svista, scusami...

era FLD.Files

ecco il codice corretto:

codice:
Dim FSO as New FileSystemObject
Dim BASEPATH as Folder
Dim FLD as Folder
Dim FIL as File

Sub ScanFolders(Path As String)

Set BASEPATH = FSO.GetFolder(Path)

For Each FLD In BASEPATH.SubFolders
    ScanFolders FLD.Path
    For Each FIL In FLD.Files
        Debug.Print FIL.Path
        DoEvents
    Next FIL
    DoEvents
Next FLD
End Sub
Boolean