[文件操作] XP下BAT怎样删除文件夹文件，保留最近10天文件？

@echo off & setlocal enabledelayedexpansion
pushd "C:\backup"
call :Date2Day %date:~0,-3% 10 Day
for /r %%i in (*.bak) do (
    for /f "tokens=1 delims= " %%j in ("%%~ti") do set "filedate=%%j" & set "filedate=!filedate:-=/!"
    if !filedate! LEQ %day% (
        set /p=Del-%%i<nul
        del "%%~i">nul 2>nul && echo  ...OK! || echo  ...Fail!
    )
)
pause
exit

:Date2Day //from http://www.cnblogs.com/mac_arthur/archive/2011/12/12/2285013.html
setlocal
for /f "tokens=1-3 delims=/-:\, " %%a in ('echo/%~1') do (
set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100)
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
set /a i=j-%~2,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %~3=%yy%%f%/%mm%%f%/%dd%&goto :EOF
复制代码

FORFILES /D -10 /M C:\backup\*.bak /C "del @file"
复制代码

@echo off
%1 mshta vbscript:createobject("wscript.shell").run("""%~0"" :"^&now-10)(close)&exit
::用 mshta 获取十天前的日期
for /f "tokens=1-3 delims=/:" %%a in ("%1") do set /a y=%%a,m=10%%b,d=10%%c
::解析 vbs 输出的日期格式
for /f "delims=0123456789" %%a in ("%~t0") do set min=%y%%%a%m:~-2%%%a%d:~-2%
::将取得的日期转为当前系统的日期格式，如果不考虑通用，可把此行改成 set min=%y%-%m:~-2%-%d:~-2%
for %%a in (c:\backup\*) do if %%~ta lss %min% echo    del "%%a"
::测试无误后把上面这行的 echo 拿掉
pause
复制代码