Если (Этот.Параметр=0) Тогда
    Уведомить("Параметр не задан");
    Возврат;
Конец;
Директория = Этот.Параметр.Текст;
Если (Директория="") Тогда
    Уведомить("Директория не задана");
    Возврат;
Конец;
ПутьКАрхиву     = Директория                      +           Символы.ОС +          Файлы.Каталог(Директория)+ " - "+ Моменты.Строка(Моменты.Текущий, "гггг-ММ-дд")+ ".zip";
ПутьКАрхиватору = Компьютеры.Директории("%RES%")+ "\7za.exe";
Стр             = "a """+                         ПутьКАрхиву +          """";
Стр             = Стр                             +           " """+     Директория +                          """";
Запустить(ПутьКАрхиватору, Стр);