[VB6]: Lista file presenti in un percorso con sottocartelle

[LMondi]

Ora ho capito il tuo problema.
Per conseguire l'obiettivo devi usare la libreria Scripting Runtime, nel seguente modo visualizzi tutti i files,
compresi quelli nascosti, contenuti nella cartella principale e nelle
relative sottocartelle:

Dim sT As String
Private Sub Command1_Click()

' Ricorda di attivare il riferimento a MS Scripting Runtime:
    Dim FSO As New FileSystemObject
    Dim f As Folder
    Dim intRis As Integer

' Nome e percorso della cartella d'origine:
    Set f = FSO.GetFolder("D:\Prova")
    
    Call ScanDirectory(f)

    intRis = MsgBox("Files contenuti nella Cartella Principale e nelle SubCartelle e relativi byte:" & Chr(13) _
    & vbCrLf & sT & Chr(13) _
    & "L'operazione si é conclusa con successo !", vbOKOnly, "Elenco dei Files")


    Set FSO = Nothing
    Set f = Nothing

End Sub

Public Sub ScanDirectory(fol As Folder)
    Dim foll As Folder
    Dim fil As File
    
    For Each fil In fol.Files
        sT = sT & "   " & fil.Name
        sT = sT & "   " & Format(fil.Size, "#,##0")
    Next
    
    For Each foll In fol.SubFolders
        Call ScanDirectory(foll)
    Next
       
End Sub