Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

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

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[1С:Зарплата и управление персоналом 8]

Не попадает каталог в архив

ngchvsky
читатель
офлайн
Дата регистрации: 11.11.2011
Сообщений: 2
Пост №1
 
11.11.2011 16:01

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

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №2
 
11.11.2011 17:34

"Я думаю, что вот так будет правильнее...<br> <br>ФайлВФорматеHTML = ПолучитьИмяВременногоФайла("htm");<br><br>Отчет.Записать(ФайлВФорматеHTML, ТипФайлаТабличногоДокумента.HTML);<br><br>файлзип = ПолучитьИмяВременногоФайла(".zip");<br>ЗаписатьZIP = новый ЗаписьZipФайла(файлзип,,,МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,);<br>ФайлНаДиске = новый файл(ФайлВФорматеHTML);<br> <br>СтрокаДанных = """" + ФайлНаДиске.Путь + "*.*";<br><br>ЗаписатьZIP.Добавить(СтрокаДанных, РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);<br><br>ЗаписатьZIP.Записать();"

ngchvsky
читатель
офлайн
Дата регистрации: 11.11.2011
Сообщений: 2
Пост №3
 
11.11.2011 17:51

"Разобрался =) можно было и не ставить звездочки. <br>Реализовал след образом : <br><br>Вложения = каталогнадиске1.Путь + каталогнадиске1.ИмяБезРасширения + "_files\"; <br><br>ЗаписатьZIP.Добавить(Вложения,РежимСохраненияПутейZIP.СохранятьОтносительныеПути,РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);                   <br> ЗаписатьZIP.Записать();"

ngchvsky
читатель
офлайн
Дата регистрации: 11.11.2011
Сообщений: 2
Пост №4
 
11.11.2011 18:04

Спасибо за оперативность в любом случае !

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация