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