aspZip
1.0.0
Авторские права (c) RCDMK, 2012 г. <[email protected]>
Настоящим разрешение бесплатно предоставляется любому лицу, получившему копию этого программного обеспечения и связанных с ним файлов документации (далее «Программное обеспечение»), иметь дело с Программным обеспечением без ограничений, включая, помимо прочего, права на использование, копирование, изменение, объединение, публиковать, распространять, сублицензировать и/или продавать копии Программного обеспечения, а также разрешать лицам, которым предоставлено Программное обеспечение, делать это при соблюдении следующих условий:
Вышеупомянутое уведомление об авторских правах и настоящее уведомление о разрешении должны быть включены во все копии или существенные части Программного обеспечения.
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ПРЕДОСТАВЛЯЕТСЯ «КАК ЕСТЬ», БЕЗ КАКИХ-ЛИБО ГАРАНТИЙ, ЯВНЫХ ИЛИ ПОДРАЗУМЕВАЕМЫХ, ВКЛЮЧАЯ, НО НЕ ОГРАНИЧИВАЯСЬ, ГАРАНТИЯМИ ТОВАРНОЙ ЦЕННОСТИ, ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННОЙ ЦЕЛИ И НЕНАРУШЕНИЯ ПРАВ. НИ ПРИ КАКИХ ОБСТОЯТЕЛЬСТВАХ АВТОРЫ ИЛИ ОБЛАДАТЕЛИ АВТОРСКИХ ПРАВ НЕ НЕСУТ ОТВЕТСТВЕННОСТИ ЗА ЛЮБЫЕ ПРЕТЕНЗИИ, УБЫТКИ ИЛИ ДРУГУЮ ОТВЕТСТВЕННОСТЬ, БУДЬ В ДЕЙСТВИЯХ ПО КОНТРАКТУ, ПРАВОНАРУШЕНИЮ ИЛИ ДРУГИМ ОБРАЗОМ, ВОЗНИКАЮЩИЕ ОТ, ИЗ ИЛИ В СВЯЗИ С ПРОГРАММНЫМ ОБЕСПЕЧЕНИЕМ ИЛИ ИСПОЛЬЗОВАНИЕМ ИЛИ ДРУГИМИ СДЕЛКАМИ, ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ.
Включите файл класса на нужную страницу и создайте экземпляр класса.
dim zip
set zip = new aspZip
Открыть ZIP-файл (создать или открыть существующий файл на диске)
zip.OpenArchieve("pathtofile.zip") ' this creates the archieve if it doesn't exists
Добавьте несколько файлов или папок
zip.Add("..src")
zip.Add(".default.asp")
Запишите файлы на диск
zip.CloseArchieve()
Если вы хотите извлечь содержимое ZIP-файла, используйте метод ExtractTo(DestinationPath)
zip.ExtractTo(".test")
Если в архиве нет файлов, он будет удален при уничтожении объекта.
Примечание:
В текущей версии (0.4) проблема с извлечением только структур каталогов должна быть решена, но время обработки теперь намного больше из-за ожидания создания каталога. Минимальное дополнительное время ожидания составляет 500 мс.
