Imports System.IO


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cargarCarpetas("C:/Manuales")
    End Sub
    Public Sub cargarSubcarpetas(ByVal rutaRaiz As String,
              ByVal nodoTree As Windows.Forms.TreeNode)
        On Error Resume Next
        Dim carpetaActual As String
        Dim indice As Integer

        If nodoTree.Nodes.Count = 0 Then
            For Each carpetaActual In
                    My.Computer.FileSystem.GetDirectories(rutaRaiz)
                indice = carpetaActual.LastIndexOf(System.IO.Path.PathSeparator)
                nodoTree.Nodes.Add(carpetaActual.Substring(indice + 1,
                     carpetaActual.Length - indice - 1))
                nodoTree.LastNode.Tag = carpetaActual
                nodoTree.LastNode.ImageIndex = 0
            Next
        End If
    End Sub

    Public Sub cargarCarpetas(ByVal rutaRaiz As String)
        Dim nodoBase As System.Windows.Forms.TreeNode

        If IO.Directory.Exists(rutaRaiz) Then
            If rutaRaiz.Length <= 3 Then
                nodoBase = TreeView1.Nodes.Add(rutaRaiz)
            Else
                nodoBase = TreeView1.Nodes.Add(
                    My.Computer.FileSystem.GetName(rutaRaiz))
            End If
            nodoBase.Tag = rutaRaiz
            cargarSubcarpetas(rutaRaiz, nodoBase)
        Else
            Throw New System.IO.DirectoryNotFoundException()
        End If
    End Sub

    Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand
        Dim n As System.Windows.Forms.TreeNode
        For Each n In e.Node.Nodes
            cargarSubcarpetas(n.Tag, n)
        Next
    End Sub

    Private Sub TreeView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDoubleClick

        Dim ruta As String
        ruta = TreeView1.SelectedNode.ToString.Substring(9)
        TextBox1.Text = ruta
        Shell("explorer.exe root=" & TextBox1.Text & " ", vbNormalFocus)

    End Sub
End Class

C:\Program Files\Microsoft Visual Studio 10.0\Samples\3082