Не попадает каталог в архив
11.11.2011
16:01
#1
"Добрый день !
Новенький в программировании по 1С, поэтому есть пару вопросов для местных гуру.
Пытаюсь выгрузить печатную форму в ХТМЛ и ее отправить по почте пользователю.
Заархивировать сам ХТМ получается, получается и внешние файлы из папки _files запихнуть в архив. Но вот сам каталог с картинкой не хочет ни в какую попадать в архив.
получается в архив попадают два файла : ФайлВФорматеHTML, и мой штрих-код из папки ФайлВФорматеHTML_files, но сама папка не попадает
Сколько комбинаций уже не пробовал, всеравно не получается. Может подскажете что изменить ?
код:
ФайлВФорматеHTML = ПолучитьИмяВременногоФайла("htm");
Отчет.Записать(ФайлВФорматеHTML, ТипФайлаТабличногоДокумента.HTML);
файлзип = ПолучитьИмяВременногоФайла(".zip");
ЗаписатьZIP = новый ЗаписьZipФайла(файлзип,,,МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,);
ЗаписатьZIP.Добавить(ФайлВФорматеHTML);
каталогнадиске1 = новый файл(ФайлВФорматеHTML);
//ГдеИскать = КаталогВременныхФайлов() + каталогнадиске1.ИмяБезРасширения + "_files" ;
//ЗаписатьZIP.Добавить(КаталогВременныхФайлов() + каталогнадиске1.ИмяБезРасширения + "_files" + "\*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути);
ЗаписатьZIP.Добавить(КаталогВременныхФайлов() + каталогнадиске1.ИмяБезРасширения + "_files" + "*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписатьZIP.Записать();
Заранее спасибо!"
Новенький в программировании по 1С, поэтому есть пару вопросов для местных гуру.
Пытаюсь выгрузить печатную форму в ХТМЛ и ее отправить по почте пользователю.
Заархивировать сам ХТМ получается, получается и внешние файлы из папки _files запихнуть в архив. Но вот сам каталог с картинкой не хочет ни в какую попадать в архив.
получается в архив попадают два файла : ФайлВФорматеHTML, и мой штрих-код из папки ФайлВФорматеHTML_files, но сама папка не попадает
Сколько комбинаций уже не пробовал, всеравно не получается. Может подскажете что изменить ?
код:
ФайлВФорматеHTML = ПолучитьИмяВременногоФайла("htm");
Отчет.Записать(ФайлВФорматеHTML, ТипФайлаТабличногоДокумента.HTML);
файлзип = ПолучитьИмяВременногоФайла(".zip");
ЗаписатьZIP = новый ЗаписьZipФайла(файлзип,,,МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,);
ЗаписатьZIP.Добавить(ФайлВФорматеHTML);
каталогнадиске1 = новый файл(ФайлВФорматеHTML);
//ГдеИскать = КаталогВременныхФайлов() + каталогнадиске1.ИмяБезРасширения + "_files" ;
//ЗаписатьZIP.Добавить(КаталогВременныхФайлов() + каталогнадиске1.ИмяБезРасширения + "_files" + "\*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути);
ЗаписатьZIP.Добавить(КаталогВременныхФайлов() + каталогнадиске1.ИмяБезРасширения + "_files" + "*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписатьZIP.Записать();
Заранее спасибо!"
11.11.2011
17:34
#2
"Я думаю, что вот так будет правильнее...
ФайлВФорматеHTML = ПолучитьИмяВременногоФайла("htm");
Отчет.Записать(ФайлВФорматеHTML, ТипФайлаТабличногоДокумента.HTML);
файлзип = ПолучитьИмяВременногоФайла(".zip");
ЗаписатьZIP = новый ЗаписьZipФайла(файлзип,,,МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,);
ФайлНаДиске = новый файл(ФайлВФорматеHTML);
СтрокаДанных = """" + ФайлНаДиске.Путь + "*.*";
ЗаписатьZIP.Добавить(СтрокаДанных, РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписатьZIP.Записать();"
ФайлВФорматеHTML = ПолучитьИмяВременногоФайла("htm");
Отчет.Записать(ФайлВФорматеHTML, ТипФайлаТабличногоДокумента.HTML);
файлзип = ПолучитьИмяВременногоФайла(".zip");
ЗаписатьZIP = новый ЗаписьZipФайла(файлзип,,,МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,);
ФайлНаДиске = новый файл(ФайлВФорматеHTML);
СтрокаДанных = """" + ФайлНаДиске.Путь + "*.*";
ЗаписатьZIP.Добавить(СтрокаДанных, РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписатьZIP.Записать();"
11.11.2011
17:51
#3
"Разобрался =) можно было и не ставить звездочки.
Реализовал след образом :
Вложения = каталогнадиске1.Путь + каталогнадиске1.ИмяБезРасширения + "_files\";
ЗаписатьZIP.Добавить(Вложения,РежимСохраненияПутейZIP.СохранятьОтносительныеПути,РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписатьZIP.Записать();"
Реализовал след образом :
Вложения = каталогнадиске1.Путь + каталогнадиске1.ИмяБезРасширения + "_files\";
ЗаписатьZIP.Добавить(Вложения,РежимСохраненияПутейZIP.СохранятьОтносительныеПути,РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписатьZIP.Записать();"
Читают тему
(гостей: 1)