[alpap]

MTIsur, а если в папке несколько файлов с расширением exe ?
так, например, переименует один такой в папке (примерно первый по алфавиту, т.е. относительно рандомно), вывод ошибки специально заглушил

Код:

@echo off
set "d=C:\Papka"
set "ext=exe"

for /f "delims=" %%d in ('dir /ad/b/s "%d%"') do (
 pushd "%%d"
  for /f "delims=" %%f in ('dir /a-d/b/s "*.%ext%"') do 2>nul ren "%%f" "%%~nxd%%~xf"
 popd
)
pause& exit

[MTIsur]

alpap, спасибо огромное! Всё работает как нужно.


В моём случае в 99% будет только один файл с данным расширением в каждой папке. Если допустить, что будет всё же несколько, то достаточно того, что переименует только один файл по данному формату (любой).
Остальные файлы с данным расширением можно удалить за ненадобностью.

[megaloman]

MTIsur, До кучи

Остальные файлы с данным расширением можно удалить за ненадобностью. »

Код:

@Echo Off
cls
	Set "Fold=Z:\Box_In"
	Set "Mask=*.exe"

	For /f "delims=" %%d in ('2^>nul Dir /A:D /B /S "%Fold%\"') Do (
		For /f "delims=" %%f in ('2^>nul Dir /A:-D /B /O:-D "%%d\%Mask%"') Do (
			If Exist "%%d\%%~nxd%%~xf" Del "%%d\%%f" 
			If Not Exist "%%d\%%~nxd%%~xf" Ren "%%d\%%f" "%%~nxd%%~xf"
		)
	)
Pause
GoTo :Eof