Скрипт: массовое переименование файлов.

Исходный код скрипта (взято с форума oszone.net):

@Echo Off
Set Source=C:\Source

For %%A In ("%Source%\*.jpg") Do Call :_Func "%%~nxA"
GoTo :EoF

:_Func
 Set FileName=%~n1
 Ren "%Source%\%~1" "%FileName:_=~~%%~x1"