[SendMessage]

Необходимо переименовать файлы по имени папки, в которой они лежат с порядковым номером и соответствующим разрешением. »

Код:

@echo off

:: Папка, в которой нужно искать
set "sDir=z:\myfolder"

:: Параметрами проставить нужные расширения
for /r "%sDir%" %%a in (.) do call:RenPicture "%%~dpna" bmp jpg gif

goto:eof
 
:RenPicture
if not "%2"=="" (
for /f "tokens=1* delims=:" %%i in (
   'dir "%~1\*.%2" /a-d/b 2^>nul ^| findstr /i/n "\.%2$" 2^>nul'
) do ren "%~1\%%j" "%~n1-%%i.%2" 2>nul
shift /2
goto RenPicture
)