[VB6] Leggere nome cartella e sottocartelle ricorsivamente

[Boolean]

altra piccola correzione:

Dim FSO as New FileSystemObject
Dim BASEPATH as Folder

Sub ScanFolders(Path As String)

Dim FLD as Folder
Dim FIL as File

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

le variabili FLD e FIL devono essere dimensionate nella Routine ScanFolders

Boolean