15.03.2016

1C 8.2 поместить файлы в архив

Начиная с 8-ой версии 1с есть возможность использовать внутренние средства 1с для архивирования файлов. До этого приходилось прибегать к использованию внешних программ, наподобие winrar или 7zip  и процедуры ЗапуститьПриложение. В принципе, и сейчас никто не мешает этим пользоваться, но если есть вариант без внешних приложений, то лучше пользоваться им.
Все очень просто, настолько просто, что я не буду даже вставлять кнопку "Читать дальше", потому что дальше ничего нет.
Пишем функцию:
Функция ПоместитьФайлыВАрхив(мсФайлы)
лИмяАрхива = лКаталогВыгрузки+"1.rar";
лЗаписьZIP = Новый ЗаписьZipФайла(лИмяАрхива);
Для Каждого лФайл Из мсФайлы Цикл
лЗаписьZIP.Добавить(лФайл.ПолноеИмя);
КонецЦикла;
лЗаписьZIP.Записать();
Возврат лИмяАрхива;
КонецФункции
Итак, берем массив файлов, проходим его добавляя в переменную записи zip-файла и все. Несмотря на то что конструктор называется ЗаписьZipФайла он вполне в состоянии записывать "rar" архивы. Вот и все.

Комментариев нет:

Отправить комментарий