Код:
@Echo Off
Cls
Set "FileIn=Z:\Box_In\*_*.pdf"
Set /A Len=20
Set "@@Out01010101010101010101=Z:\Box_Out\Варкалось!"
Set "@@Out02020202020202020202=Z:\Box_Out\Варкалось!\Хливкие шорьки"
Set "@@Out03030303030303030303=Z:\Box_Out\Варкалось!\Хливкие шорьки\Пырялись по наве"
Set /P Prefix="Укажите добавляемый префикс: "
FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@@Out"`) DO (
Set "S=%%i"
Call :Name "%%j" "%%S:~-%Len%%%" "%FileIn%" "%Prefix%_"
)
Set /A N=0
For %%i In ("%FileIn%") Do Set /A N+=1
Echo !!! Осталось неперемещенными %N% файлов "%FileIn%"
pause
GoTo :Eof
:Name
Set "In=%~3"
Call Set "In=%%In:.=%~2.%%"
For %%f In ("%In%") Do >nul Move /Y "%%f" "%~1\%~4%%~nxf"
Exit /B 0