怎样实现win2000下的自动删除几天前文件? - 中国DOS联盟论坛

如下代码在win2003及XP下执行正常:

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      
set FileDate=!FileDate:-=!
  set FileDate=!FileDate:~0,8!
  if !FileDate! lss %DateFlag% (
  echo "%%a"
  )
)
pause

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

在win2000下执行时不正常,可能是set FileDate=%%~ta 这句取得的文件日期与xp 及2003不同. 要怎样改这个代码呢?
set FileDate=08-10-22 17:56
set FileDate=!FileDate:-=!
set FileDate=!FileDate:~0,8!
if !FileDate! LSS 20081023 (echo ....)

[ Last edited by qwertl on 2008-11-6 at 09:21 ]

用RAR.EXE 实现。。。
用DATEX 处理时间。

[ Last edited by yishanju on 2008-11-5 at 16:52 ]

rar +datex有代码吗

论坛里都能搜到有用法，自己搜吧

setlocal enabledelayedexpansion
set desfolder=e:\rardata
for /f %%a in ('e:\soft\datex.exe -f "yymmdd" -o-11' do set DateFlag=%%a
echo %DateFlag%
pause
for /f "tokens=*" %%a in ('dir /s /b /a-d "%desfolder%"' do (
  set FileDate=%%~ta
  set FileDate=!FileDate:-=!
  set FileDate=!FileDate:~0,6!
  if !FileDate! lss %DateFlag% (
  del /f /q "%%a"
  )
)
pause

以上代码在win2000下测试可行.

win2003&XP用以下的代码可以:

setlocal enabledelayedexpansion
set desfolder=e:\rardata
for /f %%a in ('d:\datex.exe -f "yyyymmdd" -o-11' do set DateFlag=%%a
echo %DateFlag%
pause
for /f "tokens=*" %%a in ('dir /s /b /a-d "%desfolder%"' do (
  set FileDate=%%~ta
  set FileDate=!FileDate:-=!
  set FileDate=!FileDate:~0,8!
  if !FileDate! lss %DateFlag% (
  del /f /q "%%a"
  )
)
pause

[ Last edited by qwertl on 2008-11-6 at 12:17 ]

第1楼　qwertl	发表于 2008-11-05 16:16
中级用户　发帖 243　积分 461
怎样实现win2000下的自动删除几天前文件? 如下代码在win2003及XP下执行正常: 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 set FileDate=!FileDate:-=! set FileDate=!FileDate:~0,8! if !FileDate! lss %DateFlag% ( echo "%%a" ) ) pause 在win2003下执行结果正常删 set FileDate=2008-10-27 22:20 set FileDate=!FileDate:-=! set FileDate=!FileDate:~0,8! if !FileDate! LSS 20081018 (echo ....) 在win2000下执行时不正常,可能是set FileDate=%%~ta 这句取得的文件日期与xp 及2003不同. 要怎样改这个代码呢? set FileDate=08-10-22 17:56 set FileDate=!FileDate:-=! set FileDate=!FileDate:~0,8! if !FileDate! LSS 20081023 (echo ....) [ Last edited by qwertl on 2008-11-6 at 09:21* ]

第2楼　yishanju	发表于 2008-11-05 16:18
银牌会员　发帖 1,357　积分 1,488
用RAR.EXE 实现。。。用DATEX 处理时间。 [ Last edited by yishanju on 2008-11-5 at 16:52 ]

第3楼　HAT	发表于 2008-11-05 18:00
版主　发帖 5,017　积分 9,023
Q: 如何给代码加code标签？ A: http://www.cn-dos.net/forum/viewthread.php?tid=43735#pid304733 参考：http://www.cn-dos.net/forum/faq.php?page=misc#1

第4楼　qwertl	发表于 2008-11-05 18:36
中级用户　发帖 243　积分 461
rar +datex有代码吗

第5楼　yishanju	发表于 2008-11-05 19:08
银牌会员　发帖 1,357　积分 1,488
论坛里都能搜到有用法，自己搜吧

第6楼　qwertl	发表于 2008-11-06 10:25
中级用户　发帖 243　积分 461
setlocal enabledelayedexpansion set desfolder=e:\rardata for /f %%a in ('e:\soft\datex.exe -f "yymmdd" -o-11' do set DateFlag=%%a echo %DateFlag% pause for /f "tokens=" %%a in ('dir /s /b /a-d "%desfolder%"' do ( set FileDate=%%~ta set FileDate=!FileDate:-=! set FileDate=!FileDate:~0,6! if !FileDate! lss %DateFlag% ( del /f /q "%%a" ) ) pause 以上代码在win2000下测试可行. win2003&XP用以下的代码可以: setlocal enabledelayedexpansion set desfolder=e:\rardata for /f %%a in ('d:\datex.exe -f "yyyymmdd" -o-11' do set DateFlag=%%a echo %DateFlag% pause for /f "tokens=" %%a in ('dir /s /b /a-d "%desfolder%"' do ( set FileDate=%%~ta set FileDate=!FileDate:-=! set FileDate=!FileDate:~0,8! if !FileDate! lss %DateFlag% ( del /f /q "%%a" ) ) pause [ Last edited by qwertl on 2008-11-6 at 12:17 ]