Массовое переименование файлов.

[lisa999]

На локальном диске имеется большое количество файлов с именами 1.txt 1a.txt 57e.txt и т.д. Мне их нужно переименовать все разом. Также имеется csv файл где в первой колонке указан список этих фалов , а во второй колонке список с новыми именами этих файлов. С помощью чего получится такое организовать? Сам csv могу переделать под любой другой формат если потребуется.

[Smogg]

мне проще написать программку, чем искать и тем более подгибать найденный универсальный вариант под данную конкретную задачу)

[waleri]

Я лично генерю себе cmd файл с отдельными ren командами для каждого файла.
Собственно, если первой колоной вставить словно ren и сохранить CSV файл исползуя знак табуляции в качестве разделителя то получим такой готовый файл.

[Smogg]

Сообщение от waleri

Собственно, если первой колоной вставить словно ren и сохранить CSV файл исползуя знак табуляции в качестве разделителя то получим такой готовый файл.

красиво )

[kvitaliy]

Простой Vbs скрипт поможет сделать работу.

Вид csv должен быть такой:
1.txt,100.txt
2.txt,102.txt
3.txt,103.txt

Где 1.txt старое имя, а 100.txt новое имя, без пробелов, без пустых строк.
Имя у меня name.csv, надо в коде изменить на своё и реальный путь к файлу!
Запускать надо в папке с файлами, которые переименовываем.

Сам код:

filepath="C:\name.csv" ' Полный путь и имя к файлу с именами
Set Fso = CreateObject("Scripting.FileSystemObject")
Set inputFile = Fso.OpenTextFile(filepath, 1, True) '
Dim fields
Do Until inputFile.AtEndOfStream  
    fields = Split(inputFile.Readline,",") 'считываем в массив старое и новое имя
    Set f = Fso.GetFile("C:\" & fields(0))
    f.Name = fields(1)
Loop
inputFile.close
msgbox "Насяльника, работа сделанама!"

Этот код надо скопировать в блокнот и сохранить в папку с файлами с именем Rename_file.vbs, запустить на исполнение, ждать результат.

[lisa999]

Сообщение от kvitaliy

Простой Vbs скрипт поможет сделать работу.

Вид csv должен быть такой:
1.txt,100.txt
2.txt,102.txt
3.txt,103.txt

Где 1.txt старое имя, а 100.txt новое имя, без пробелов, без пустых строк.
Имя у меня name.csv, надо в коде изменить на своё и реальный путь к файлу!
Запускать надо в папке с файлами, которые переименовываем.

Сам код:

filepath="C:\name.csv" ' Полный путь и имя к файлу с именами
Set Fso = CreateObject("Scripting.FileSystemObject")
Set inputFile = Fso.OpenTextFile(filepath, 1, True) '
Dim fields
Do Until inputFile.AtEndOfStream  
    fields = Split(inputFile.Readline,",") 'считываем в массив старое и новое имя
    Set f = Fso.GetFile("C:\" & fields(0))
    f.Name = fields(1)
Loop
inputFile.close
msgbox "Насяльника, работа сделанама!"

Этот код надо скопировать в блокнот и сохранить в папку с файлами с именем Rename_file.vbs, запустить на исполнение, ждать результат.

сделал по вашему. Ошибка вылезла. строка 7 символ 5 ошибка - файл не найден. и код 800A0035
Какой именно файл не найден?

[lisa999]

Сообщение от lisa999

сделал по вашему. Ошибка вылезла. строка 7 символ 5 ошибка - файл не найден. и код 800A0035
Какой именно файл не найден?

Сам разобрался. Большое Вам спасибо за ценный совет.

[kvitaliy]

Сообщение от lisa999

Сам разобрался. Большое Вам спасибо за ценный совет.

Ну может кто ещё воспользуется, разъясню, что в этой строчке

Set f = Fso.GetFile("C:\" & fields(0))

"C:\" - тут должен быть реальный каталог, где файлы лежат.
Или вообще ни чего, если запуск из того же каталога где файлы для переименования:

Set f = Fso.GetFile(fields(0))

[NetSpace]

Вот. Делал для переименовки ахового количества файлов (ну, для покадровой обработки видео и всё такое). Нормально работает, если количество файлов не более 2000. то есть лучше разбить папку, где 60.000 файлов, на части. а заодно и отсортирует по параметрам, если надо (галочка уже стоит)

[kvitaliy]

https://www.virustotal.com/ru/file/9...is/1449898458/

У скрипта такой проблемы нет