Модули для действий\Директория\Исправить имена файлов
Функция Выполнить()
Модуль = Этот.Владелец;
Параметр = Модуль.Параметр;
Если (Параметр=0) Тогда
Сообщить("Параметр не задан");
Возврат 0;
Конец;
Если (Параметр.Тип()<>Объекты.Директория) Тогда
Сообщить("Параметр не директория");
Возврат 0;
Конец;
есть_исправления = 0;
Параметр.Обновить();
Для Объект Из Параметр Цикл
Если (Объект.'Это файл'=1) Тогда
исправить = 0;
НовоеРасширение = ИсправитьРасширениеФайла(Объект.Расширение);
НовоеИмя = ИсправитьИмяФайла(Объект.'Имя файла без расширения');
Если (НовоеРасширение<>Объект.Расширение) Тогда исправить = 1; Конец;
Если (НовоеИмя<>Объект.'Имя файла без расширения') Тогда исправить = 1; Конец;
Если (исправить=1) Тогда
ПутьКФайлуСтал = Объект.Путь + Символы.ОС + НовоеИмя + "."+ НовоеРасширение;
Сообщить("Изменено имя файла",Объект.'Путь к файлу',ПутьКФайлуСтал);
Файлы.Переименовать(Объект.'Путь к файлу',ПутьКФайлуСтал);
есть_исправления = 1;
Конец;
Конец;
Конец;
Если (есть_исправления) Тогда
Параметр.Обновить();
Конец;
Конец
Функция ИсправитьРасширениеФайла(Расширение)
Результат = Расширение;
Если (Расширение="INI") Тогда Результат = "ini"; Конец;
Если (Расширение="TXT") Тогда Результат = "txt"; Конец;
Если (Расширение="mp4") Тогда Результат = "avi"; Конец;
Если (Расширение="JPG") Тогда Результат = "jpg"; Конец;
Если (Расширение="MP3") Тогда Результат = "mp3"; Конец;
Если (Расширение="ZIP") Тогда Результат = "zip"; Конец;
Если (Расширение="DOC") Тогда Результат = "doc"; Конец;
Если (Расширение="EXE") Тогда Результат = "exe"; Конец;
Возврат Результат;
Конец
Функция ИсправитьИмяФайла(ИмяФайла)
Результат = ИмяФайла;
// можно заменить нижнее подчеркивание на тире
//Если (Строки.Найти(ИмяФайла,"_")>0) Тогда
// Результат = Строки.Заменить(ИмяФайла,"_","-");
//Конец;
// можно заменить символы на другие
//Результат = Строки.Заменить(Результат,"DSCN","P-");
Возврат Результат;
Конец