Архив zip

Архив = Новый ЧтениеZipФайла(ИмяАрхива);<br />
ВремИмя = ПолучитьИмяВременногоФайла(«»);<br />
СоздатьКаталог(ВремИмя);<br />
Архив.ИзвлечьВсе(ВремИмя, РежимВосстановленияПутейФайловZIP.Восстанавливать);</p>
<p>Архив = ЗаписьZipФайл(ИмяАрхива);<br />
Архив.Добавить(Файл);<br />
Архив.Закрыть();