Codenstuff.com

  Imports System.IO  

 Dim permanent As String
    Dim r As Boolean

    Dim fb As New FolderBrowserDialog
        If fb.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim path = fb.SelectedPath
            Dim rootNode As TreeNode
            Dim info As New DirectoryInfo(path)
            If info.Exists Then
                rootNode = New TreeNode(info.FullName)
                rootNode.Tag = info
                GetDirectories(info.GetDirectories(), rootNode)
                TV.Nodes.Add(rootNode)
            End If
            LV.Items.Add(path)
            permanent = path
        End If

 Private Sub GetDirectories(ByVal subDirs() As DirectoryInfo, ByVal nodeToAddTo As TreeNode)
        Dim aNode As TreeNode
        Dim subSubDirs() As DirectoryInfo
        Dim subDir As DirectoryInfo
        For Each subDir In subDirs
            aNode = New TreeNode(subDir.Name, 0, 0)
            aNode.Tag = subDir
            aNode.ImageKey = "folder"
            subSubDirs = subDir.GetDirectories()
            If subSubDirs.Length <> 0 Then
                GetDirectories(subSubDirs, aNode)
            End If
            nodeToAddTo.Nodes.Add(aNode)
        Next subDir

    End Sub

Private Sub LV_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LV.MouseDoubleClick
        Try
            Dim filepath As String = permanent
            For Each item As ListViewItem In LV.Items
                Dim f As String = item.SubItems(0).Text
                If item.Selected = True And Not f = filepath Then
                    Process.Start(f)
                End If
                If f = filepath And r = Nothing Then
                    TV.CollapseAll()
                    LV.Items.Clear()
                    LV.Items.Add(permanent)
                    r = True
                ElseIf f = filepath And r = True Then
                    TV.ExpandAll()
                    Dim path = filepath
                    Dim di As New IO.DirectoryInfo(path)
                    Dim dir As IO.DirectoryInfo()
                    dir = di.GetDirectories()
                    For Each directory In dir
                        LV.Items.Add(directory.FullName)
                    Next
                    r = False
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub