Если (Этот.Параметр=0) Тогда Уведомить("Параметр не задан"); Возврат; Конец; Директория = Этот.Параметр.Текст; Если (Директория="") Тогда Уведомить("Директория не задана"); Возврат; Конец; Удалено = 0; Т = Файлы.Имена(Директория, "", 1, 1); Т.Сортировать(-2); Для П Из Т Цикл К = Файлы.Количество(П); Если (К=0) Тогда // Сообщить(П); Удалено = Удалено + Файлы.Удалить(П); Конец; Конец; Уведомить("Удалено пустых каталогов "+Строки.Строка(Удалено), Директория);