'##################################################################
        'Hinzufügen aller Dateien:
        For Each strFiles In System.IO.Directory.GetFiles(txtPfad.Text, "*.*", _
          IO.SearchOption.TopDirectoryOnly)
            If (IO.File.GetAttributes(strFiles) And IO.FileAttributes.System) = _
            False Then 'Wenn keine Systemdatei
                addString = IO.Path.GetFileName(strFiles)
                listDateien.Items.Add(addString).Checked = True
                Funktionen.EndungHinzufügen(Formatierungen.DateiEndung( _
                  addString))
                Application.DoEvents() 'Anwendung machen lassen
            End If
        Next
 
        'Spaltenbreiten anpassen lassen:
        listDateien.Columns(0).AutoResize( _
          ColumnHeaderAutoResizeStyle.HeaderSize)
        listDateien.Columns(1).AutoResize( _
        ColumnHeaderAutoResizeStyle.HeaderSize)

        '2. Spalte mit leerem Inhalt füllen
        For i = 0 To listDateien.Items.Count - 1
            listDateien.Items(i).SubItems.Add("")
        Next
        '##################################################################