PDA

Visualizza la versione completa : [VB] Problema con il codice...


Calem82
01-08-2002, 19:15
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 po 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

Gigi84
02-08-2002, 09:06
che errore ti da?

PUNKABBESTIA
02-08-2002, 09:21
A me funziona.........

Calem82
02-08-2002, 09:28
OK...sono riuscito a correggerlo...

Calem82
02-08-2002, 15:36
Ora mi servirebbe per che visualizzi nella treeview anche i file contenuti nelle directory...qualcuno sa come fare???

Loading