|
#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) одной папке? |
#2
|
||||
|
||||
Попробуйте задать ZipForge1.BaseDir := Edit1.Text+'\' а в архив добавлять уже ZipForge1.AddFiles('events\*.*'); и т.д.
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |