dynamic population of a TreeView

[zeroGrav]

Hell there

 

I am presently writing an application called CDatabase which will scan a gived CDrom and store its logical information in a subtree of the main TreeView widget on the main form.

 

The problem lies in the fact that I cannot make my directory analyze function create nodes hierarchically using recursive functions.

 

Say I have a folder "Moo" on the CDrom. That folder has couple of files and some subfolders and so on. I can't create an in-memory image of that logical structure using TreeNodes, TreeView.

 

I actually figured a way of doing something, but it's not what I wanted. I scan the folders/files of the cdrom and place it all in an ArrayList. Then I process each item in the list and create nodes in the tree (I use String.split to get the nodes' names). But the problem is that my thing is not working properly. It would not create nodes/subnodes correctly and I don't know why... Here's what I have so far. It's not the way it should be, I know there is anoher solution to this problem. Ideas welcome!

 

 

Imports System.IO

 

 

Public Class DirAnalyzer

Dim entries As New ArrayList()

 

Sub New(ByVal tree As TreeView)

analyzeFolder("D:\New Folder")

populateTree(tree)

End Sub

 

Sub analyzeFolder(ByVal folder As String)

Dim subDirs As String() = Directory.GetDirectories(folder)

Dim files As String() = Directory.GetFiles(folder)

Dim file, dir As String

 

For Each file In files

entries.Add(file)

Next

 

For Each dir In subDirs

entries.Add(dir)

analyzeFolder(dir)

Next

End Sub

 

Sub populateTree(ByVal tree As TreeView)

Dim t As String

Dim a As Int32

Dim tokens() As String

 

For Each t In entries

Console.WriteLine("Line : " + t)

tokens = Split(t, "\")

While a < tokens.Length - 1

addItem(tokens(a), tree, a)

a = a + 1

End While

Next

End Sub

 

 

Sub addItem(ByVal text As String, ByRef tree As TreeView, ByVal level As Int32)

Console.WriteLine("adding entry: " + text)

Select Case level

Case 0

tree.Nodes.Add(text)

Case 1

tree.Nodes(0).Nodes.Add(text)

Case 2

tree.Nodes(0).Nodes(0).Nodes.Add(text)

Case 3

tree.Nodes(0).Nodes(0).Nodes(0).Nodes.Add(text)

Case 4

tree.Nodes(0).Nodes(0).Nodes(0).Nodes(0).Nodes.Add(text)

End Select

End Sub

End Class

 

 

===================

[divil]

Make a sub which takes a Node and a path as a parameter. In that sub, first enumerate the directories, creating a node for each one and recursing on that node with the directory name. Then add files too, if you need to.