[Alex7]

Здравствуйте, добавляю в 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) одной папке?

[dr. F.I.N.]

Попробуйте задать ZipForge1.BaseDir := Edit1.Text+'\' а в архив добавлять уже ZipForge1.AddFiles('events\*.*'); и т.д.