Мне нужно распаковать файлы , почему не работает?
ТЧ - имя каталога...
      НайденныеФайлы = Новый Массив;
      НайденныеФайлы = НайтиФайлы("D:\Инстоляторы\" + ТЧ +"\", "*.exe");
      Для Каждого Фл Из НайденныеФайлы Цикл
          ЗапуститьПриложение(ФЛ,"D:\Инстоляторы\" + ТЧ,Истина);
      КонецЦикла;

А файлы .exe можно только через  ЗапуститьПриложение() открыть и распаковать?

(21) ну наверно не то суёшь. В ЗапуститьПриложение должна быть строка, а ты подсовываешь "Фл", а это точно не строка.

(2) +1000

да это я решил, только вот всегда выдается командная строка  ии нужно постояннонажимать Y - т.е да...

ФайлыПереноса = Новый Массив;
       ФайлыПереноса = НайтиФайлы("D:\Отчетность\VREM\");
       
       ИмяАрхивногоФайла ="11.rar";
       ЗаписьZIP = Новый ЗаписьZipФайла(ИмяАрхивногоФайла);
       Для Каждого Фл1 Из ФайлыПереноса Цикл
           Если Фл1.Расширение = ".EXE" Тогда
               продолжить;
           Иначе
                  ЗаписьZIP.Добавить("D:\Инстолятор\VREM\" + Фл1.Имя, РежимСохраненияПутейZIP.НеСохранятьПути);
                ЗаписьZIP.Записать();
           КонецЕсли;
      КонецЦикла;

почему не записывает в архив?

ФайлыПереноса = НайтиФайлы("D:\Инстолятор\VREM\");

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

Не пойму ни как у меня 20 файлов а только 1 записывает:
       ФайлыПереноса = Новый Массив;
       ФайлыПереноса = НайтиФайлы("D:\Инстолятор\VREM\","*.*");
       
       ИмяАрхивногоФайла ="11.rar";
       ЗаписьZIP = Новый ЗаписьZipФайла(ИмяАрхивногоФайла);
       фЛПЕРВЫЙ = 0;
       Для Каждого Фл1 Из ФайлыПереноса Цикл
           Если Фл1.Расширение = ".EXE" Тогда
               продолжить;
           Иначе
               еСЛИ фЛПЕРВЫЙ =1 тОГДА
               ЗаписьZIP.Открыть(ИмяАрхивногоФайла);
               КонецЕсли;
                  ЗаписьZIP.Добавить("D:\Инстолятор\VREM\" + Фл1.Имя, РежимСохраненияПутейZIP.НеСохранятьПути);
                ЗаписьZIP.Записать();
                фЛПЕРВЫЙ = 1;
           КонецЕсли;
      КонецЦикла;

               КонецЕсли;

Подскажите, можно ли программно заархивировать папку?

(9) можно. СП не прочитать что ли? Там не только имя файла подставляется, но и маска.

Вот пишу:
ИмяВременногоКаталога = "D:\Инстоляторы\АА"; АА - это папка
ИмяАрхивногоФайла ="D:\Rp" + ЭлементыФормы.Год1.Заголовок + "_" + ТЧ + ".rar";
ЗаписьZIP = Новый ЗаписьZipФайла(ИмяАрхивногоФайла);
ЗаписьZIP.Добавить(ИмяВременногоКаталога, РежимСохраненияПутейZIP.НеСохранятьПути,РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ЗаписьZIP.Записать();
Не работает!

интересная у тебя маска однако.
ИмяВременногоКаталога ="D:\Инстоляторы\АА\*.*".

и это еще: РежимСохраненияПутейZIP.СохранятьОтносительныеПути.

Не работает так:
ЗаписьZIP.Добавить("D:\Инстоляторы\" + "Rp"+Число(Лев(ЭлементыФормы.Год1.Заголовок,2)) + "q" +Число(Сред(ЭлементыФормы.Год1.Заголовок,4,1))+"\*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути,РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);

(14) пробелы в пути не попадаются?

и как не работает то? Не архивирует вообще, что ли?

архив создает, а папку не архивирует!

(17) пробелы есть в наименовании папки которая архивируется?

Вот что попадает под путь:
"D:\Инстоляторы\Rp11q3\*.*"

хм - вроде все норм. Т.е. архив создается вообще пустой? Или файлы копируются, но без папки?

(20) все взлетело!
Надо так:
ЗаписьZIP.Добавить("D:\Инстоляторы\"+"*.*", РежимСохраненияПутейZIP.СохранятьОтносительныеПути,РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);

(21) папкой выше брать? А если нужна конкретная папка в подкаталоге? Лана - счас перекушу и сам поиграюсь с этим.

вот так все работает:
КаталогДляАрхивации - путь к архивируемому каталлогу без "\" (тупо значение каталога с ДиалогВыборФайла).

&НаКлиенте
Процедура АрхивироватьКаталог(Команда)
   
   Если НЕ ПроверитьЗаполнение() Тогда
       Возврат
   КонецЕсли;
   
   АрхивZIP = Новый ЗаписьZipФайла(ИмяФайлаАрхива);
   АрхивZIP.Добавить(КаталогДляАрхивации + "\", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
   АрхивZIP.Записать();
КонецПроцедуры



+(23) имеется ввиду без "\" в конце.