[Delphi] SevenZip - pliki TXT

0

Witam serdecznie!
Mam pewny problem. Oto kodzik procedury:

procedure TcopyForm.Button2Click(Sender: TObject);
var
  i, a:integer;
  rec: TSearchRec;
  s: string;
begin
  zip.SZFileName := zmienne._COPY+'Backup_'+DatetoStr(date)+'.7z';
  zip.AddRootDir:='data\';
  zip.Files.Clear;
  
  s:='data\';
  a:=FindFirst(s + '*.*', faAnyFile, rec);
  while a = 0 do
  begin
    if (rec.name <> '..') and (rec.Name <> '.') then
            zip.Files.AddString(S + rec.name);
            a:=FindNext(rec);
            i:=zip.Add;
  end;
  zip.Free;
end;

Chodzi mi dokładnie o to, że w podanym folderze (data) jest plik TXT i niestety komponent SevenZip zapisuje go, owszem, ale bez zawartości. Plik jest na liście archiwizowanych, ale nic nie waży i nie zawiera. Jest pusty.

Co można zrobić?

0

zip.add poza pętlę ?

0

Już zrobiłem. Okazało się, że nie mogłem pliku spakować, bo był używany przez program.
Skopiowałem plik TXT i wrzuciłem go do archiwum i gotowe.

Dzięki, pozdrawiam!

1 użytkowników online, w tym zalogowanych: 0, gości: 1