MZ
setlocal EnableDelayedExpansion
for /D %%d in (d:\1\*) do (
call :makedir %%d
for %%f in (%%d\*) do (
call :filename %%f %%d
)
)
goto :end
:makedir
md d:\2\%~nx1
exit /b
:filename
move d:\2\%~nx1 d:\2\%~nx2\%~nx1
exit /b
:end
Size: a a a
MZ
MZ
MZ
DR
MZ
AL
MZ
AL
MZ

MZ
НШ
MZ
MZ
DR
AP
AP
DR
НЩ
Кб
S