Имя: Пароль:
1C
1С v8
ПакетОтображаемыхДокументов или как объединить файлы
0 nightowl
 
27.05.16
17:10
Добрый день!
Задача несколько файлов объединить в один.
Пакет = Новый ПакетОтображаемыхДокументов;
Каталог = "C:\TEMP\";
Файлы = НайтиФайлы(Каталог,"*.pdf",Истина);
Для каждого Файл Из Файлы Цикл Сообщить(Файл.ПолноеИмя);
    ЭлементПакета = Пакет.Состав.Добавить();
    ДвоичныеДанные = Новый ДвоичныеДанные(Файл.ПолноеИмя);
    ЭлементПакета.Данные = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
КонецЦикла;
ИмяФайла = Каталог+Формат(ТекущаяДата(),"ДФ=yyyyMMdd_HHmmss")+".pdf";
Пакет.ЗаписатьФайлДляПечати(ИмяФайла);
Файл = Новый Файл(ИмяФайла);
Если Файл.Существует() Тогда
    Сообщить("Файл существует");
Иначе
    Сообщить("Файл не существует", СтатусСообщения.Внимание);
КонецЕсли;

Результат: Файл не записывает.
Что пошло не так?