Массово переименовываем файлы скриптом vbs script

Порой приходится “однотипно” переименовывать несколько (иногда - много) файлов, с разницей лишь в номере. А бывает, под рукой нет ни утилит, ни интернета, откуда их можно скачать.. В общем, ничего, кроме Windows. :)

Конечно, же, средствами системы вполне успешно можно пользоваться и в этом случае.
Частично (или полностью) помочь в этом может простенький vbs-скрипт (редактируется в любом текстовом редакторе - вполне подойдет notepad.exe он же Блокнот). VBS - Visual Basic Script - язык программирования, который “распознает” Windows.
Под свои нужды не так уж сложно подогнать один из нижеприведенных скриптов массового копирования или переименования изображений.
Если желания разбираться в скриптах нет - для обработки нижеприведенными скриптами оригиналы изображений следует разместить в каталоге “C:\TMP\1\” и создать пустой каталог “C:\TMP\2\ для переименованных изображений.
Массовое переименование файлов - копируем в каталог \2\ “Изображение_1.jpg” и т.д.

num = 1
Set filesys = CreateObject("Scripting.FileSystemObject")
Set objFolder = filesys.GetFolder("C:\TMP\1\")
For Each File in objFolder.Files
If LCase(filesys.GetExtensionName(File)) = "jpg" Then
filesys.CopyFile File, "..\2\Изображение_"& num & '.jpg'
num = num+1
End If
Next

Массовое переименование файлов - Добавляем префикс к имени файлу

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objFolder = filesys.GetFolder("C:\TMP\1\")
For Each File in objFolder.Files
If LCase(filesys.GetExtensionName(File)) = "jpg" Then
filesys.CopyFile File, "..\2\t_"&filesys.GetFileName(File)
End If
Next

Скрипты, на всякий случай используют команду CopyFile (нетрудно догадаться, что она копирует файл, оставляя оригинал на прежнем месте). Если же Вам требуется переименовать (переместить) файл - её следует заменить на MoveFile.

Метки: ,

Автор будет признателен, если Вы поделитесь ссылкой на статью, которая Вам помогла:
BB-код (для вставки на форум)

html-код (для вставки в ЖЖ, WP, blogger и на страницы сайта)

ссылка (для отправки по почте)

Добавить комментарий