中国DOS联盟

Originally posted by dddyjq1 at 2008-10-21 01:15 AM:
翻个老贴给你 ,测试成功的

@echo off
SET TT=1
set p1=%date:~0,4%
set p2=%date:~5,2%
set p3=%date:~8,2%
setlocal enabledelayedexpansion
for /l %%a in (1,1,3) do (
for /f "del ...

2000下面还是不行

出现：

此时不应有 "。
此时不应有 "。
此时不应有 "。
此时不应有 "。
此时不应有 "。

我这边的情况：
@echo off set TT=5&set "ph=d:\000" 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,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+=%%i if %p3% leq %tt% goto nxt :ppp set/a p3-=tt setlocal enabledelayedexpansion for %%i in (p2 p3) do if !%%i! lss 10 set %%i=0!%%i! for /f "skip=7 tokens=1,3*" %%i in ('dir /ad /tc "%ph%" 2^>nul^|find /v "字节"') do ( if %p1%-%p2%-%p3% gtr %%i echo rd /s /q "%ph%\%%k" ) pause&exit

Originally posted by yuehong at 2008-10-21 22:09:


测试成功，感谢！！
要是d:\000下面的文件也要删除呢？怎么处理？麻烦了。。。

其实这个就是我20楼 给你的 你竟然顶到这里
删文件 你要先dir /a-d /b 然后 判断时间 后 del

很好啊

在win2003下正常删
set FileDate=2008-10-27 22:20
set FileDate=!FileDate:-=!
set FileDate=!FileDate:~0,8!
if !FileDate! LSS 20081018 (echo ....)

在win2000下要怎样改这个代码呢?
set FileDate=08-10-22 17:56
set FileDate=!FileDate:-=!
set FileDate=!FileDate:~0,8!
if !FileDate! LSS 20081023 (echo ....)

set desfolder=e:\rardata
setlocal enabledelayedexpansion
>"%tmp%\MyDel.vbs" echo dt=date()-11
>>"%tmp%\MyDel.vbs" echo s=right(year(dt),4) ^& right("0" ^&

month(dt),2) ^& right("0" ^& day(dt),2)
>>"%tmp%\MyDel.vbs" echo wscript.echo s
for /f %%a in ('cscript /nologo "%tmp%\MyDel.vbs"') do set DateFlag=%%a
echo %DateFlag%
pause
for /f "tokens=*" %%a in ('dir /s /b /a-d "%desfolder%"') do (
set FileDate=%%~ta 这里取得的文件日期与xp 及2003不同.
set FileDate=!FileDate:-=!
set FileDate=!FileDate:~0,8!
if !FileDate! lss %DateFlag% (
echo "%%a"
)
)
pause