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