Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As_ _
     System.EventArgs) Handles MyBase.Load
 
        TreeView.Nodes.Add(txtPfad2.Text).Nodes.Add("-")
 
    End Sub
 
 
    Private Sub TreeView _AfterExpand(ByVal sender As Object, ByVal e As_ _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView .AfterExpand
        Dim N As TreeNode
        Try
            For Each N In e.Node.Nodes
                N.Remove()
            Next
        Catch
        End Try
        '
        Dim D As DirectoryInfo
        For Each D In New DirectoryInfo(e.Node.FullPath & "\").GetDirectories
            N = e.Node.Nodes.Add(D.Name)
            Try
                If D.GetDirectories.Length Then
                    N.Nodes.Add("-")
                End If
            Catch
            End Try
        Next
 
    End Sub