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