批处理删除 N 天以前的文件

@echo off&title DOS资源站 www.cmdos.net&echo\
:: by 小楼一夜听春雨
:: 删除当前文件夹(含子文件夹) N 天以前的txt文件

set /p _tian= 请输入天数:
>tmptmp.vbs echo wscript.echo dateadd("d",-%_tian%,date)
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo tmptmp.vbs') do (
     set /a y=%%i,m=100%%j%%100,d=100%%k%%100
)
set "rq=%y%-%m%-%d%"
echo.&echo 注意:即将删除 %rq% 以前建立的文件
echo.&pause&cls

::判断文件
for /f "delims=" %%a in ('dir/b/s/a-d *.txt') do (
   for /f "delims= " %%b in ("%%~ta") do (
   if %%b lss %rq% del/q "%%a"
   )
)
del/q tmptmp.vbs
pause