Me.dirs.Clear()
        Me.ListBox1.Items.Clear()
        For Each tn As TreeNode In Me.TreeView1.Nodes
            Me.verzeichnisse(tn)
        Next
        For Each f As String In dirs
            Me.ListBox1.Items.Add(f)
        Next

    Private Function verzeichnisse(ByVal knoten As TreeNode)
        For Each tn As TreeNode In knoten.Nodes
            If tn.Checked Then
                dirs.Add(tn.FullPath)
            End If
            verzeichnisse(tn)
        Next
    End Function