如何删除特定目录下50天以前建立的子目录 - 中国DOS联盟论坛

感谢你的帮助，我对代码进行了测试和学习，发现其中有一些小问题，做了修改并测试，请指教。
@echo off
D:
REM 目标分区
CD D:\Test\
REM 目标文件夹
SET TT=15
REM 设定天数
for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a p1=%%i,p2=100%%j%%100,p3=100%%k%%100
if %p3% gtr %TT% goto ppp
:nxt
set/a p2-=1
if %p2% equ 0 set/a p1-=1&&set p2=12
set/a PN2="!(p1%%4)&!(!(p1%%100))|!(p1%%400)",PN2=28+PN2
for /f "tokens=%p2%" %%i in ("31 %pN2% 31 30 31 30 31 31 30 31 30 31") do set/a p3=%p3%+%%i
if %p3% leq %tt% goto nxt
:ppp
setlocal enabledelayedexpansion
set/a p3=p3-tt
REM 新增的赋值语句，减去设定的天数。
for %%i in (p2 p3) do if !%%i! lss 10 set %%i=0!%%i!
echo "%P2%&%p3%"
for /f "tokens=*" %%i in ('dir /b /ad') do (
set "ta=%%~ti"
if "!ta:~0,4!!ta:~5,2!!ta:~8,2!" leq "!p1!!p2!!p3!" rd /s /q "%%~fi" 2>nul
)
PAUSE

第16楼　blljp	发表于 2008-06-02 20:03
初级用户　发帖 12　积分 26
谢谢你！我搞错了，啥时候能学到你的水平呀！

第17楼　blljp	发表于 2008-06-02 20:08
初级用户　发帖 12　积分 26
Originally posted by blljp at 2008-6-2 08:03 PM: 谢谢你！我搞错了，啥时候能学到你的水平呀！你太厉害了！

第18楼　wuyongchang	发表于 2008-06-03 10:32
新手上路　发帖 3　积分 8
感谢你的帮助，我对代码进行了测试和学习，发现其中有一些小问题，做了修改并测试，请指教。 @echo off D: REM 目标分区 CD D:\Test\ REM 目标文件夹 SET TT=15 REM 设定天数 for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a p1=%%i,p2=100%%j%%100,p3=100%%k%%100 if %p3% gtr %TT% goto ppp :nxt set/a p2-=1 if %p2% equ 0 set/a p1-=1&&set p2=12 set/a PN2="!(p1%%4)&!(!(p1%%100))\|!(p1%%400)",PN2=28+PN2 for /f "tokens=%p2%" %%i in ("31 %pN2% 31 30 31 30 31 31 30 31 30 31") do set/a p3=%p3%+%%i if %p3% leq %tt% goto nxt :ppp setlocal enabledelayedexpansion set/a p3=p3-tt REM 新增的赋值语句，减去设定的天数。 for %%i in (p2 p3) do if !%%i! lss 10 set %%i=0!%%i! echo "%P2%&%p3%" for /f "tokens=*" %%i in ('dir /b /ad') do ( set "ta=%%~ti" if "!ta:~0,4!!ta:~5,2!!ta:~8,2!" leq "!p1!!p2!!p3!" rd /s /q "%%~fi" 2>nul ) PAUSE

第19楼　blljp	发表于 2008-06-03 13:23
初级用户　发帖 12　积分 26
Originally posted by wuyongchang at 2008-6-3 10:32 AM: 感谢你的帮助，我对代码进行了测试和学习，发现其中有一些小问题，做了修改并测试，请指教。 @echo off D: REM 目标分区 CD D:\Test\ REM 目标文件夹 ... 不错，高手呀！能否发一个针对文件的。