Private Sub AppendItemToListview(ByVal Pfad As String, ByVal Rechte As _
      String)
        Dim NewItem As New ListViewItem(Pfad)
        NewItem.SubItems.Add(Rechte)
        ListView1.Items.Add(NewItem)
    End Sub