[Stanei]

Добрый день. Есть такой код на добавление файлов в архив

Код:

1 2 3 4 5 6 7 8 9

var   Zip: TZipFile; begin   Zip := TZipFile.Create;   Zip.UTF8Support := true;   Zip.ZipDirectoryContents('Архив.zip', ExtractFilePath(Application.ExeName) + 'data');   Zip.Close;   Zip.Free; end;

При таком выполнении добавляются все папки и файлы которые находятся внутри папки "data"

Но как можно добавить саму папку "data" включая её содержимое? Что бы при открытии архива там лежала "data" с её содержимым.