|
#1
|
|||
|
|||
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 Как сделать, чтобы 3 папки events, backup, photo и один файл config.mdb были сразу в архиве, а не сначала в этой (Edit1.Text) одной папке? |