Распределение файлов по папкам и подпапкам по имени файла

cls
chcp 1251
cd "D:\bat"
move *.xml D:\bat
cd "D:\bat"  
if exist *. (
   echo __________________________________________________________________________ >> D:\bat
   echo %DATE% %TIME:~0,8% >> D:\bat
   for /f "eol=; tokens=*" %%k in ('') do (
    echo  > D:\out.txt 
    for /f "eol=; tokens=12,14 delims=-" %%n in (D:\bat) do (
      if EQU 009001 SET raion=ПЕТРОЗАВОДСК 
   
      SET mass=%%o 
     )   
     
 
 
    setlocal enableDelayedExpansion 
    
    type %%k|findstr /R "<.....>[0123456789].*</.....>" >  D:\bat
 
 
    for  "eol=; tokens= delims=<>"  in (D:\bat) do (
     ifEQU 1 SET month=ЯНВАРЬ
     if /i %%p EQU 2 SET month=ФЕВРАЛЬ
 
    )
 
   
    
    type %%k|findstr /R /N "<...................>[^0123456789.].*$" > D:\bat
    for /f "eol=; tokens= delims=<>" %%q in (D:\bat) do (
     SET tip=%%q
    )
 
   
 
   
    
    
    echo Подтверж* !MASS! !raion! !tip! >> D:\BAT\ПОДТВЕРЖДЕНИЯ\out.txt
   
 
   ) 
 
)
 
 
 
 
chcp 866

@Echo Off
    Set "BoxIn=Z:\Box_In"
    Set "BoxOut=Z:\Box_Out"
    Set "KeyWord=DPT"
    Set "Mask=CZN-*-%KeyWord%-*.* PRF-*-%KeyWord%-*.*"
 
    Pushd "%BoxIn%" &&(
        For /f "usebackq delims=" %%i In (`2^>nul Dir /B /A:-D %Mask%`) Do (
            Set "Name1=%%i"
            Set "Name2=%%i"
            Call Set "Name1=%%Name1:~0,3%%"
            Call Set "Name2=%%Name2:*-%KeyWord%-=%%"
            Call Set "Name2=%BoxOut%\%%Name1%%\%%Name2:~4,2%%"
            2>nul Call Md "%%Name2%%"
            Call Move "%%i" "%%Name2%%\"
        )
    )
Exit /B