Готовые модули

Для всех
Модули для задач\Директория\Замена типов файлов
Модули для задач\Директория\Переименовать отмеченные
Модули для задач\Директория\Создать архив директории
Модули для задач\Директория\Заменить текст в файлах
Модули для задач\Диск\Заполнить диск пустыми файлами
Модули для действий\Текст\Итого по строкам
Модули для действий\Текст\Сортировать строки
Модули для действий\Текст\Свернуть строки
Модули для действий\Текст\Удалить пустые строки
Модули для действий\Текст\Перевести текст
Модули для действий\Список\Обработка списка
Модули для действий\Группа\Обработка группы
Модули для действий\Директория\Исправить имена файлов
Модули для действий\Задача\Создать скрипт для автовыполнения задачи
Defy
Автосохранение Yandex
AutoLoadTorrents
Анализ объявлений Авито
Faster
Модули для буфера\Разделить буфер обмена
Модули для буфера\Соединить буфер обмена
Настройка реестра Windows
DBI
Модули для задач\БД 1С 8\Выгрузить базу данных
Модули для задач\БД 1С 8\Загрузить базу данных
Модули для задач\БД 1С 8\Выгрузить конфигурацию в файлы
Модули для действий\Директория\Проверить все обработки
Модули для действий\Модуль 1С\Проверить модуль
Модули для действий\БД 1С 8\Открыть временную локальную папку
Запуск RDP
Модули для 1С\Обновление конфигураций 1С
Модули для 1С\Выгрузка конфигураций 1С в файлы
Модули для 1С\Выгрузка информационных баз 1С


Модули для действий\Директория\Исправить имена файлов

Функция Выполнить()
    
    Модуль   = Этот.Владелец;
    Параметр = Модуль.Параметр;
    Если (Параметр=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-");
	
    Возврат Результат;
    
Конец
  

http://moolex.ru