Evo ja sam ovaj kod koristio da ispunim TreeView kontrolu sa svi folderima na nekoj particiji. Ti ga samo malo prepravi da odgovara tvojim potrebama...
Code:
Public Sub generateTree(tvw As TreeView, rootFolder As String)
On Error Resume Next
Dim rootDir As Folder
Dim nodX As Node
'first to see if given path is true
If FSO.FolderExists(rootFolder) = False Then Exit Sub
Set rootDir = FSO.GetFolder(rootFolder) 'then get that folder
'add it s root
Set nodX = tvw.Nodes.Add(, , rootDir.Path, rootDir.Path, "FOLDER")
nodX.Expanded = True
For Each oDir In rootDir.SubFolders 'for each subfolder in folder
'call addDir sub...
addDir CStr(oDir), tvw
Next oDir
End Sub
'this sub isn't mine (i found it somewhere on net, but i forgoted where), i just
'made some changes. it takes given folder name and add it (folder) and all his
'SubFolders in tree view
Private Sub addDir(dirname As String, tvw As TreeView)
Dim rootFolder As Folder, currentFolder As Folder, subFolder As Folder
Dim parentName As String
Dim nodX As Node
Set rootFolder = FSO.GetFolder(dirname) 'first get folder
If Not rootFolder.IsRootFolder Then 'check to see if folder isn't root
parentName = rootFolder.ParentFolder
Set nodX = tvw.Nodes.Add(parentName, tvwChild, rootFolder, rootFolder.Name, "FOLDER")
End If
'here gets all subfolders in given folder
For Each currentFolder In rootFolder.SubFolders
'and add it to tree
Set nodX = tvw.Nodes.Add(CStr(rootFolder), tvwChild, currentFolder, currentFolder.Name, "FOLDER")
For Each subFolder In currentFolder.SubFolders 'for each subfolder in subfolder
'everything goes again...
addDir subFolder.Path, tvw
Next subFolder
Next currentFolder
End Sub
Ako bas nemozes sam mogu ja da ti je malo sredim...