Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
    System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ReadDrive(ComboBox1.Text)
    End Sub
 
    Private Sub ReadDrive(ByVal drive As String)
        TreeView1.Nodes.Clear()
        For Each Verzeichnis As String In IO.Directory.GetDirectories(drive)
            Dim tn As New TreeNode(Verzeichnis.Substring(drive.Length))
            tn.Tag = Verzeichnis
            TreeView1.Nodes.Add(tn)
        Next
    End Sub
 
    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If e.Node.Nodes.Count = 0 And Not e.Node.IsExpanded Then
            Read_Directory(e.Node)
            e.Node.Expand()
        End If
    End Sub
 
    Private Sub Read_Directory(ByVal Knoten As TreeNode)
        Knoten.Nodes.Clear()
        Dim Verzeichnis As String = CType(Knoten.Tag, String)
        For Each Unterverzeichnis As String In IO.Directory.GetDirectories( _
          Verzeichnis)
            Dim tn As New TreeNode(Unterverzeichnis.Substring( _
            Verzeichnis.Length + 1))
            tn.Tag = IO.Path.Combine(Verzeichnis, Unterverzeichnis)
            Knoten.Nodes.Add(tn)
        Next
 
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co