Private Sub DateiToolStripMenuItem_Click(sender As Object, e As EventArgs) _
     Handles DateiToolStripMenuItem.Click
        FolderBrowserDialog1.ShowDialog()
        My.Settings.QuellPfad = FolderBrowserDialog1.SelectedPath
        If My.Settings.QuellPfad.Substring(My.Settings.QuellPfad.Length - 1, 1) _
          <> "\" Then
            My.Settings.QuellPfad = My.Settings.QuellPfad & "\"
        End If
        verzeichnisListe()
    End Sub