CODE: [Copy to clipboard]
@echo off
set Files=%date:~0,4%%date:~5,2%%date:~8,2%
if not exist %Files%\ md %Files%
set p1=%Files:~0,4%
set p2=%Files:~4,2%
set p3=%Files:~6,2%
setlocal enabledelayedexpansion
for /l %%a in (1,1,3) do (
for /f "delims=0 tokens=*" %%i in ("!p%%a!") do set p%%a=%%i
)
call :loop1
set p2=0%t2%
set p2=%p2:~-2,2%
set p3=0%t3%
set p3=%p3:~-2,2%
for /r jhsj %%i in (*.*) do set t=%%~ti &set p=%%~pi&call :loop2 "%%~fi"
pause
goto :eof
:loop1
if %p3% lss 7 (
if %p2% EQU 1 set t2=12&set/a p1-=1&set/a t3=%p3%+24&goto :eof
if %p2% EQU 3 set/a t3=%p3%+21&set/a t2=%p2%-1&goto :eof
for %%p in (5 7 10 12) do if %p2% EQU %%p set/a t3=%p3%+23&set/a t2=%p2%-1&goto :eof
set/a t2=%p2%-1&set/a t3=%p3%+24&goto :eof
)
set t2=%p2%&set/a t3=%p3%-7&goto :eof
:loop2
set p=%p:~5%
if "%Files%"=="%t:~0,4%%t:~5,2%%t:~8,2%" xcopy %1 %Files%%p% /Y /H /R >nul
if %t:~0,4%%t:~5,2%%t:~8,2% LEQ %p1%%p2%%p3% del %1
goto :eof