0
Haze
08.08.19
✎
12:32
|
Есть папка куда вышражаются текстовые файлы, нужно чтобы все это текстовые файлы попадали в этот архив, а попадают всего 2 из n-го количества.
ЗаписьZIP = Новый ЗаписьZipФайла(КаталогВыгрузки+"\Архив ("+Формат(ТекущаяДата(),"ДЛФ=DD")+").zip",
"",
"Комментарий",
МетодСжатияZIP.Сжатие,
УровеньСжатияZIP.Максимальный,
МетодШифрованияZIP.Zip20);
ЗаписьZIP.Добавить(КаталогВыгрузки+"\"+Формат(ДатаВыгрузки,"ДФ=yyyyMMdd")+"_"+Префикс+УдалитьПерфикс(Номер)+"_transfer.txt");
ЗаписьZIP.Добавить(КаталогВыгрузки+"\"+ТекстовыйФайл.ИспользуемоеИмяФайла);
ЗаписьZIP.Записать();
|
|
5
Фомич
08.08.19
✎
13:17
|
Попытка
ФайлАрхива = ИмяКаталога +"\"+ ИмяФайлаОбмена;
Архиватор = Новый ЗаписьZipФайла(ФайлАрхива, , "Файл c данными");
СписокФайловXML = НайтиФайлы(ИмяКаталога + "\tmp\", "*.*");
Если СписокФайловXML.Количество() = 0 Тогда Возврат; КонецЕсли;
Для Индекс = 0 По СписокФайловXML.ВГраница() Цикл
Файл = СписокФайловXML[Индекс];
Архиватор.Добавить(Файл.ПолноеИмя);
ЭлементыФормы.ПоясняющийТекст.Заголовок = (Файл.ПолноеИмя);
КонецЦикла;
Архиватор.Записать();
ЭлементыФормы.ПоясняющийТекст.Заголовок = ("Запись полученного архива на диск");
Исключение
Сообщить(ИнформацияОбОшибке());
КонецПопытки;
|
|