中国DOS联盟

@echo off
setlocal enabledelayedexpansion
del netusbdir.tmp
del usbdir.tmp
set n=
set tmpday=
rem ---------------读取配置文件-------------------
for /f "tokens=*" %%i in (%selfpath%config.ini) do (set %%i)
if "%keepdays%"=="" goto notdefinekeepdays
set /a keepdays=%keepdays%

rem ---------------计算保留天数之前的那个日期-------------------
echo wscript.echo dateadd("d",-%keepdays%,date) >%tmp%\tmp.vbs
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo %tmp%\tmp.vbs') do set y=%%i
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo %tmp%\tmp.vbs') do set m=%%j
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo %tmp%\tmp.vbs') do set d=%%k
if %m% LEQ 9 set m=0%m%
if %d% LEQ 9 set d=0%d%
set /a beforneeddays=%y%%m%%d%

dir Net-20?????? /ad/o-n/b>netusbdir.tmp
echo off
for /f "tokens=2 delims=-" %%i in (netusbdir.tmp) do (>>"usbdir.tmp" echo %%i)
rem ------------------如果日期列表小于保留天数日期则....----------------------
for /f "delims=" %%i in (usbdir.tmp) do (
                        set /a n=n+1&set /a tmpday=%%i&if %%i lss %beforneeddays% (
call :deletenetmorethenkeepdays
)
                                                )
goto over

:deletenetmorethenkeepdays
if %n% GEQ %keepdays% echo [%n%] rd /s/q %usbdisk%\Net-%tmpday%
:over

for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo %tmp%\tmp.vbs') do (
  set y=%%i
  set m=%%j
  set d=%%k
)