中国DOS联盟

@echo off&setlocal enabledelayedexpansion
::设置几天内
set n=150
::设置路径
set "p=D:\rec"
for /f "tokens=1-3 delims=-:/ " %%a in ("%date%") do (
set Y=%%a&set M=%%b&set D=%%c
if "!M:~0,1!"=="0" set M=!M:~1!
if "!D:~0,1!"=="0" set D=!D:~1!
)
set/a D-=n
if %D% leq 0 goto:han
:ye
echo.筛选时间点为:%Y%年%M%月%D%日到今天
set M=0%M%&set D=0%D%&set n=%Y%!M:~-2!!D:~-2!
(for /f "delims=" %%a in ('dir /s/b/ad "%p%"') do (
set t=%%~ta&set t=!t:-=!
if !t:~0^,8! gtr %n% echo.%%a
))>c:\输出_%n%.txt
pause&exit
:han
set/a M-=1
if !M!==0 set/a Y-=1,M=12
set/a "T=^!(M-2)","R=(^!(Y%%4)&^!^!(Y%%100))|^!(Y%%400)","C=^!(M-4)|^!(M-6)|^!(M-9)|^!(M-11)","D=T*(28+R)+C*30+(^!T&^!C)*31+D"
if %D% leq 0 (goto:han) else goto:ye