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
Rispondi quotando
