[El Sanchez]

19w85, ересь №2 , только покороче:

Код:

@Echo Off
Set Source=C:\Source

SetLocal
For /F "Tokens=1* Delims=:" %%A In ('Dir /B /A-D "%Source%\*.ac3"^|FindStr /N .') Do Set FN%%A=%%B
For /F "Tokens=1* Delims=:" %%A In ('Dir /B /A-D "%Source%\*.mkv"^|FindStr /N .') Do If Defined FN%%A Call Ren "%Source%\%%FN%%A%%" "%%~nB.ac3"
EndLocal