Programming Forums - View Single Post

Jabo · Oct 13th, 2007, 3:35 AM

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:

(Toggle Plain Text)

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.

Oct 13th, 2007, 3:35 AM	#1
Jabo Not a user? Join Date: Sep 2007 Posts: 272 Rep Power: 2	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: (Toggle Plain Text) 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 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.