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