1C программист

Как распаковать Zip архив в 1С 8.3
&НаКлиенте

Процедура РаспаковываемZipАрхив()



    // Распаковываем Doc31032020.zip в папку "D:\AvtoArhiv\"

    ФайлАрхива = Новый ЧтениеZipФайла("D:\AvtoArhiv\Doc31032020.zip",""); // путь, пароль к архиву



    // Сообщим комментарий к архиву

    Сообщить(ФайлАрхива.Комментарий);



    РежимВосстПутейФайлов=РежимВосстановленияПутейФайловZIP.Восстанавливать;

    // Распаковываем все файлы в D:\MyDocuments\Out

    ФайлАрхива.ИзвлечьВсе("D:\MyDocuments\Out", РежимВосстПутейФайлов); // (путь, восстанавливать каталоги)



    // Или распаковываем файлы по одиночке.

    Для Каждого Элемент Из ФайлАрхива.Элементы Цикл



        Сообщить("... разархивирую..."+Элемент.ПолноеИмя);

        //(Элемент, Путь, ВосстанавливатьКаталоги, Пароль)

        ФайлАрхива.Извлечь(Элемент,"D:\MyDocuments\Out", РежимВосстПутейФайлов,"");



    КонецЦикла;



КонецПроцедуры
✍️ @odin1C_rus