1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

   iCount := 0;
    while iCount < FileList.Count do
    begin
      // Überprüfen ob es ein Pfad ist
      if DirectoryExists(FileList.Strings[iCount]) then
      begin
        frmMain.AbZipper1.StoreOptions := [soRecurse];
        sFileName := FileList.Strings[iCount] + '\*.*';
        frmMain.AbZipper1.AddFilesEx(sFileName, m_sZippedFileData, iCount);
      end
      else
      begin
        frmMain.AbZipper1.StoreOptions := [soStripDrive, soStripPath, soRemoveDots];
        sFileName := FileList.Strings[iCount];
        frmMain.AbZipper1.AddFiles(sFileName, iCount);
      end;
      inc(iCount);
    end;