Вход | Регистрация
 

Запись текстового файла в zip архив.

Запись текстового файла в zip архив.
Я
   Haze
 
08.08.19 - 12:32
Есть папка куда вышражаются текстовые файлы, нужно чтобы все это текстовые файлы попадали в этот архив, а попадают всего 2 из n-го количества.

ЗаписьZIP = Новый ЗаписьZipФайла(КаталогВыгрузки+"\Архив ("+Формат(ТекущаяДата(),"ДЛФ=DD")+").zip",
          "",
          "Комментарий",
          МетодСжатияZIP.Сжатие,
          УровеньСжатияZIP.Максимальный,
          МетодШифрованияZIP.Zip20);

ЗаписьZIP.Добавить(КаталогВыгрузки+"\"+Формат(ДатаВыгрузки,"ДФ=yyyyMMdd")+"_"+Префикс+УдалитьПерфикс(Номер)+"_transfer.txt");
ЗаписьZIP.Добавить(КаталогВыгрузки+"\"+ТекстовыйФайл.ИспользуемоеИмяФайла);
ЗаписьZIP.Записать();
 
 
   lodger
 
1 - 08.08.19 - 12:52
ну судя по коду ты 2 файла и закинул. в чем проблем-с?
   Haze
 
2 - 08.08.19 - 13:08
(1) А как закинуть все txt файлы? С маской "*.txt" не получатеся(
   lodger
 
3 - 08.08.19 - 13:11
между
ЗаписьZIP = Новый ЗаписьZipФайла
И
ЗаписьZIP.Записать();

надо сделать поиск файлов С маской "*.txt" и каждый поименно ЗаписьZIP.Добавить
   dka80
 
4 - 08.08.19 - 13:14
МассивФайлов = НайтиФайлы(КаталогСканов,, ИскатьВПодкаталогах);
    Для каждого Файл Из МассивФайлов Цикл
ЗаписьZIP.Добавить(
   Фомич
 
5 - 08.08.19 - 13:17
Попытка
            ФайлАрхива = ИмяКаталога +"\"+ ИмяФайлаОбмена;
            Архиватор = Новый ЗаписьZipФайла(ФайлАрхива, , "Файл c данными");
            СписокФайловXML = НайтиФайлы(ИмяКаталога + "\tmp\", "*.*");
            Если СписокФайловXML.Количество() = 0 Тогда Возврат; КонецЕсли;
            
            Для Индекс = 0 По СписокФайловXML.ВГраница() Цикл
                Файл = СписокФайловXML[Индекс];
                Архиватор.Добавить(Файл.ПолноеИмя);
                ЭлементыФормы.ПоясняющийТекст.Заголовок = (Файл.ПолноеИмя);
            КонецЦикла;
            
            Архиватор.Записать();
            ЭлементыФормы.ПоясняющийТекст.Заголовок = ("Запись полученного архива на диск");
            
        Исключение
            
            Сообщить(ИнформацияОбОшибке());
            
        КонецПопытки;

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.