// пример архивации всех подпапок в отдельные архивы
Сообщения.Очистить();
Путь           = "C:\Archives";
ИменаКаталогов = Файлы.Имена(Путь, "", 1);
Для ИмяКаталога Из ИменаКаталогов Цикл
    Путь2       = Путь  + Символы.ОС + ИмяКаталога;
    ПутьКАрхиву = Путь2 + ".zip";
    Если (Файлы.Есть(ПутьКАрхиву)=0) Тогда
        Сообщить("Архивируем..."+Путь2+" в "+ПутьКАрхиву);
        Запустить("C:\Program Files\WinRAR\WinRar.exe", "a -afzip -ep1 -r "+ПутьКАрхиву+" "+Путь2, 0, 1);
    Конец;
Конец;