Модули для действий\Директория\Проверить все обработки
Функция Выполнить()
Модуль = Этот.Владелец;
Параметр = Модуль.Параметр;
Если (Параметр=0) Тогда
Сообщить("Параметр не задан");
Возврат 0;
Конец;
Если (Параметр.Тип()<>Объекты.Директория) Тогда
Сообщить("Параметр не директория");
Возврат 0;
Конец;
Для Объект Из Параметр Цикл
Если (Объект.'Это файл' =1) Тогда
Если ((Объект.Расширение="epf")ИЛИ(Объект.Расширение="erf")) Тогда
ПроверкаМодуля(Объект);
Конец;
Конец;
Конец;
Конец
Функция ПроверкаМодуля(Модуль1С)
Модуль1С.Обновить();
Рез = Модуль1С.Выполнить(Действия.'Проверить модуль');
Если (Рез>0) Тогда
Сообщить("Есть ошибки в модуле", Рез, Модуль1С.'Путь к файлу');
Иначе
Рез = Модуль1С.Выполнить(Действия.'Поиск одинаковых условий');
Если (Рез>0) Тогда
Сообщить("Есть одинаковые условия", Рез, Модуль1С.'Путь к файлу');
Конец;
Конец;
Возврат Рез;
Конец