Ho trovato il seguente codice che dovrebbe mettere in una treeview tutte le cartelle e le sottocartelle presenti in un determinato percorso, solo che non funziona. C'è qualcuno che pùo provarlo e cercare di correggerlo????

Private Sub Command1_Click()
dim strStartDirectory

strStartDirectory="C:\Documenti"
tvwExplorer.Nodes.Add , , strStartDirectory, strStartDirectory
WalkingDir strStartDirectory

End Sub

Private Sub WalkingDir(strDir As String)

Dim fso As FileSystemObject
Dim oFolder As Folder
Dim oMainFolder As Folder

Set fso = New FileSystemObject

Set oMainFolder = fso.GetFolder(strDir)

For Each oFolder In oMainFolder.SubFolders

tvwExplorer.Nodes.Add strDir, tvwChild, strDir & "\" & oFolder.Name,
oFolder.Name
WalkingDir strDir & "\" & oFolder.Name


Next

End Sub