@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