Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.176 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

AW: Verzeichnisse zippen Win Android IOS

  Alt 3. Mai 2016, 18:00
Klar.

Delphi-Quellcode:
using System.IoUtils;

var
   absolutePath:      String;
   archiveFileName:   String;
begin
   for absolutePath in TDirectory.GetFiles(..) do begin
      archiveFileName := [...];
      myZipFile.Add(absolutePath, archiveFileName);
   end;
   myZipFile.Close();
end;
Wobei archiveFileName den "Pfad" in der ZIP-Datei angibt. Wenn du bspw. folgende Struktur auf der Platte hast

x:\Dir1\someFile.txt
x:\Dir1\Dir2\someOtherFile.txt

Und du das Verzeichnis x:\Dir1 rekursiv speichern willst dann sind das im Endeffekt die zwei Aufrufe

Delphi-Quellcode:
myZipFile.Add('x:\Dir1\someFile.txt', 'someFile.txt');
myZipFile.Add('x:\Dir1\Dir2\someFile.txt', '.\Dir2\someFile.txt');
  Mit Zitat antworten Zitat