Hallo Leute,
da ich TZipFile zum ersten Mal benutze, will ich zuerst üben.
Ich stelle fest, dass ich mit Add eine Datei, auch mehrmals, zu einem Archiv hinzufüge. Das Aktualisieren, das bedeutet überschreiben einer vorhandenen Datei ist nicht möglich, ist das richtig?
Ich stelle weiter fest, dass Dateien unter dem gleichen Namen mehrmals auftauchen können, ich kann sie also über den Namen nicht alle ansprechen!
(ich weiß, es geht über den Index)
Nochmal meine Frage: kann ich eine vorhandene Datei im Archiv überschreiben?
Etwas Code:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if fod.Execute then begin
if fod2.Execute then begin
with TZipfile.Create do
try
if IsValid(fod.FileName) then begin
open(fod.FileName, zmReadWrite);
Add(fod2.FileName);
Close;
end;
finally
Free;
end;
end;
end;
end;
Gruß Willie.