[VB6] Creare un programma simile a "Esplora Risorse"

[Boolean]

in un nuovo Form metti una ListBox e un CommandButton.

poi usa questo codice:

Dim FSO As Object

Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
ScanFolders "C:\Programmi"
End Sub

Sub ScanFolders(Path As String)

If Right$(Path, 1) <> "\" Then Path = Path & "\"

Set BASEPATH = FSO.GetFolder(Path)

For Each FLD In BASEPATH.SubFolders
    List1.AddItem FLD.Path
    ScanFolders FLD.Path
    DoEvents
Next FLD
    
End Sub

al click sul Command1, avrai nella ListBox tutti i percorsi di cartelle e sottocartelle a partire da C:\Programmi

Boolean