Код:
@Echo Off
cls
Set "BoxIn=Z:\Box_In"
Set "Mask=20??????."
Set "TD=%Date%"
FOR /D %%d IN ("%BoxIn%\%Mask%") DO Set "DD=%%~nd" &Call :ReData %%DD:~6,2%%.%%DD:~4,2%%.%%DD:~0,4%% "%%d"
Date %TD%
pause
GoTo :Eof
:ReData
Date %1
Ren %2 "%~nx2.tmp" ||Exit /B 2
Md %2 &&(
For /F "usebackq delims=" %%i IN (`2^>nul Dir /B "%~2.tmp"`) DO (
Move "%~2.tmp\%%i" "%~2\" >nul
)
Rd "%~2.tmp"
)
GoTo :Eof