Тема: ZipForge
Показать сообщение отдельно
  #1  
Старый 11.03.2019, 22:37
Alex7 Alex7 вне форума
Новичок
 
Регистрация: 18.09.2018
Сообщения: 62
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию ZipForge

Здравствуйте, добавляю в zip файлы и папки

Код:
ZipForge1.FileName := (Edit1.Text+'.zip'); 
  ZipForge1.OpenArchive(fmCreate); 
  ZipForge1.BaseDir := '\'; //
  ZipForge1.AddFiles(Edit1.Text+'\events\*.*'); 
  ZipForge1.AddFiles(Edit1.Text+'\backup\*.*'); 
  ZipForge1.AddFiles(Edit1.Text+'\photo\*.*'); 
  ZipForge1.AddFiles(Edit1.Text+'\config.mdb'); 
  ZipForge1.CloseArchive();
В Edit1.Text имя папки в которой лежат 3 папки events, backup, photo и один файл config.mdb
Только в упакованном архиве оказывается одна папка, имя которой прописано в Edit1.Text, а уже в ней 3 папки events, backup, photo и один файл config.mdb
Как сделать, чтобы 3 папки events, backup, photo и один файл config.mdb были сразу в архиве, а не сначала в этой (Edit1.Text) одной папке?
Ответить с цитированием