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ć?