Programming Forums - Filling out a treeview on a form

Programming Forums (http://www.programmingforums.org/forumindex.php)

- Visual Basic .NET (http://www.programmingforums.org/forum19.html)

- - Filling out a treeview on a form (http://www.programmingforums.org/showthread.php?t=14161)

Filling out a treeview on a form

Using vb2005, I have a treeview on a form, and I'm trying to populate the nodes with drives and directories and files. I got the drives to populate fine, but when it comes to directories, so far the best I can do is to have it populate the drives all over again for each drive listed when I double-click a node.

If I use the following code:

For Each drv As Object In My.Computer.FileSystem.Drives()

            tvwDir.Nodes(0).Nodes.Add(drv.ToString)

Next



For Each node As TreeNode In tvwDir.Nodes

     For Each dir As Object In My.Computer.FileSystem.GetDirectories(node.Text)

          If My.Computer.FileSystem.DirectoryExists(dir.ToString) Then

               node.Nodes.Add(dir.ToString)

          End If

     Next

Next

...it runs filling up the treeview until it says directory not found. The path it lists is about 10 directories deep, but the last part is \My Computer. This is perplexing me to no end, and I am having trouble finding detailed information on using the treeview object. Can anybody help? I'm sure there's a better way because it seems it's not just getting the 1st level directories but all directories, at least on that drive.

I think I have it figured out now. Made the following changes:

For Each drv As Object In My.Computer.FileSystem.Drives()

     If Not ((drv.ToString = "A:\") Or (drv.ToString = "D:\")) Then

          tvwDir.Nodes(0).Nodes.Add(drv.ToString)

     End If

Next



For Each node As TreeNode In tvwDir.Nodes(0).Nodes

     For Each dir As Object In My.Computer.FileSystem.GetDirectories(node.Text)

          node.Nodes.Add(dir.ToString.Substring(3, dir.ToString.Length - node.Text.Length))

     Next

Next

I've filled out an imagelist for my treeview with 5 ico files. For some reason, I can only use 2 of those images, index 0,1, after those images I get an index out of range error. I set the treeview.imagelist = to my created imagelist as follows:

Dim imglst As New ImageList()

imglst.Images.Add(Image.FromFile("C:\Projects\File_Rename\computer.ico"))

imglst.Images.Add(Image.FromFile("C:\Projects\File_Rename\drive.ico"))

imglst.Images.Add(Image.FromFile("C:\Projects\File_Rename\folder1.ico"))

imglst.Images.Add(Image.FromFile("C:\Projects\File_Rename\folder2.ico"))

imglst.Images.Add(Image.FromFile("C:\Projects\File_Rename\file1.ico"))



tvwDir.ImageList = imglst



tvwDir.Nodes.Add("root", "My Computer")

tvwDir.Nodes.Item(0).ImageIndex = 0



tvwDir.Nodes(0).Nodes.Add(drv.ToString)

tvwDir.Nodes(0).Nodes.Item(drvindex).ImageIndex = 1



node.Nodes.Add(dir.ToString.Substring(3, dir.ToString.Length - 3))

node.Nodes.Item(dirindex).ImageIndex = 2

The red part is where I'm getting the outside of index error. Is this because my files are not readable, or is it because there is a 2 index limit to an imagelist? The examples I've seen have many images in an imagelist. When I do just the first 2 indexes, it sets my root as the computer.ico, then the 2nd level nodes are set to drive.ico. All subsequent nodes are set to computer.ico.

Don't worry about the semantics of my code, it's snippets relevant to the question extracted from the whole.