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