Tree view in vb.net

[dhilipkumar]

I have added one treeview and one imagelist to display the directories and subdirectories of all logical drives. Just create a subroutine called treeview() .This subroutine is called from the click event of bttnpath.

Sub treeview()
        Dim node, childnode, grandchld, grgrandchld As TreeNode
        Dim img As Image
        Dim rootdir, subdir, subdr, fname As String
        TreeView1.Nodes.Clear()
        TreeView1.ImageList = ImageList1
        For Each rootdir In Directory.GetLogicalDrives
            node = TreeView1.Nodes.Add(rootdir)
            If node.Text = "A:\" Then
                node.ImageIndex = 4
                node.SelectedImageIndex = 4
            ElseIf node.Text = "F:\" Then
                node.ImageIndex = 1
                node.SelectedImageIndex = 1
            ElseIf node.Text = "G:\" Then
                node.ImageIndex = 1
                node.SelectedImageIndex = 1
            ElseIf node.Text = "H:\" Then
                node.ImageIndex = 1
                node.SelectedImageIndex = 1
            Else
                node.ImageIndex = 3
                node.SelectedImageIndex = 3
            End If


            Try
                For Each subdir In Directory.GetDirectories(rootdir)
                    childnode = node.Nodes.Add(subdir)

                    For Each subdr In Directory.GetDirectories(subdir)

                        grandchld = childnode.Nodes.Add(subdr)
                        For Each fname In Directory.GetFiles(subdr)
                            grgrandchld = grandchld.Nodes.Add(fname)

                        Next
                    Next
                Next
            Catch my As Exception
                MsgBox(my.Message)
            End Try

        Next

    End Sub