Dateien von mehereren Laufwerken in Zip packen

[Andreas H.]

Hallo,

kann ich eigentlich in ein ZIP-Archiv Dateien von verschiedenen Laufwerken packen? Der Pfad einer Datei wird ja gespeichert. Die Laufwerksangabe wird aber unterschlagen.

Ich benutze KAZip und da einfacherweise AddFilesAndFolders:

Delphi-Quellcode:

    try
      Zipper.CreateZip(FileNameEdit.Text);
      Zipper.FileName:=FileNameEdit.Text;
      Zipper.Active:=true;
      ProgressForm.Caption:='Dateien werden gepackt...';
      ProgressForm.CurrentActionText:='';
      ProgressForm.MaxValue:=1;
      ProgressForm.CurrentValue:=0;
      ProgressForm.Show;
      Application.ProcessMessages;
      Zipper.AddFilesAndFolders(ExportFiles.Items,'',true);
      Zipper.Comment:=ExportFiles.Items;
    finally
      Zipper.Active:=false;
      Zipper.Close;
      ProgressForm.Close;
      close;
    end;

In Items sind sowohl Dateinamen als auch Pfadnamen enthalten, auch von verschiedenen Laufwerken.

Wie gesagt, die Laufwerksangabe wird unterschlagen!

Wie würdet Ihr vorgehen?

Gruß und alles Gute fürs neue Jahr, Andreas