Подскажите, в табличной части задаются пути к данным которые нужно за архивировать, если указать файлы то данные копируются, но если указать напрямую папку с файлами, то создается пустой архив.


&НаКлиенте
Процедура Архивировать(Команда)

   Архив = Новый ЗаписьZIPФайла(Объект.ПутьКудаКопировать+"\"+"Архив"+".zip", "Пароль", "Комментарий",
   МетодСжатияZIP.Сжатие, УровеньСжатияZIP.Максимальный, МетодШифрованияZIP.Zip20);

   Для Каждого СтрокаТЧ ИЗ Объект.ТабОткудаКопировать Цикл //обходим табличную часть, в ней строки с путем где лежат файлы
     Архив.Добавить(СтрокаТЧ.ПутьОткудаКопировать, РежимСохраненияПутейZIP.СохранятьПолныеПути,
       РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
   КонецЦикла;
   Архив.Записать();
   Сообщить("Заархивировал");

КонецПроцедуры

<РекурсивнаяОбработкаПодпапок> (необязательный)

Тип: РежимОбработкиПодкаталоговZIP.
В случае добавления файлов по маске обрабатывать дополнительно подкаталоги.
Значение по умолчанию: НеОбрабатывать.

РежимОбработкиПодкаталоговZIP (ZIPSubDirProcessingMode)
Значения

НеОбрабатывать (DontProcess)
ОбрабатыватьРекурсивно (ProcessRecursively)

Описание:

Содержит варианты обработки масок файлов в именах для упаковки в ZIP архив.

Пробовал и так и так

НеОбрабатывать (DontProcess)
ОбрабатыватьРекурсивно (ProcessRecursively)


Все равно архив пустой

(2) используй rar, жмет лучше и проще с ним.

На системе нет рара =(
Нужно извратиться с зипом.

Архив.Добавить(СтрокаТЧ.ПутьОткудаКопировать+'\*', РежимСохраненияПутейZIP.СохранятьПолныеПути,
       РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);

ASV, да работает с папками. Но теперь к расширению файла прибавляется \ и вываливается

{Справочник.МестоБекапа.Форма.ФормаЭлемента.Форма(73)}: Ошибка при вызове метода контекста (Добавить)
         Архив.Добавить(СтрокаТЧ.ПутьОткудаКопировать+"\", РежимСохраненияПутейZIP.СохранятьОтносительныеПути,
по причине:
Некорректное имя файла: file://E:\upload.xml\*
по причине:
Неправильный путь к файлу 'file://E:\upload.xml\*'. 123(0x0000007B): Синтаксическая ошибка в имени файла, имени папки или метке тома.

Строчка "Добавить" и добавляет в пакет архива все файлы.
Соизволь в цикле пройтись по всем нужным файлам :)

(6) Это ДНК, не излечимо :)

Так циклом прохожусь, он добавляет все папки с содержимым в архив, но казлит именно на отдельных файлах.

(9) Ты добавь проверочку

Файл = Новый Файл(ПутьКФайлу);
Файл.ЭтоФайл()
Или
Файл.ЭтоКаталог()

Как вам угодно :)

(9) И лишний наклонную не проставляй, если это не каталог или если это файл :)

Спасибо за пинок.

&НаКлиенте
Процедура Архивировать(Команда)

    Архив = Новый ЗаписьZIPФайла(Объект.ПутьКудаКопировать+"\"+"Архив"+".zip", "Пароль", "Комментарий",
    МетодСжатияZIP.Сжатие, УровеньСжатияZIP.Максимальный, МетодШифрованияZIP.Zip20);

    Для Каждого СтрокаТЧ ИЗ Объект.ТабОткудаКопировать Цикл //обходим табличную часть, в ней строки с путем где лежат файлы
        Файл = Новый Файл(СтрокаТЧ.ПутьОткудаКопировать);
        Если Файл.ЭтоФайл() Тогда
              Архив.Добавить(СтрокаТЧ.ПутьОткудаКопировать, РежимСохраненияПутейZIP.СохранятьОтносительныеПути,
            РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
        Иначе
             Архив.Добавить(СтрокаТЧ.ПутьОткудаКопировать+"\", РежимСохраненияПутейZIP.СохранятьОтносительныеПути,
            РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
        КонецЕсли;             
    КонецЦикла;

    Архив.Записать();
    Сообщить("Заархивировал");

КонецПроцедуры