Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        tvwBaumBibliothek.Nodes.Clear()
 
        Dim str As String() = txtPfad2.Text.Split("\\")
        txtPfad2.Text = txtPfad2.Text.Replace("\" & str(str.Length - 1), "")
        Dim tn As TreeNode
        tn = tvwBaumBibliothek.Nodes.Add("...")
        tn.Nodes.Add("-")
        tn.Tag = txtPfad2.Text
    End Sub