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