中国DOS联盟

Re Will Sort:

嘿嘿，之所以我只用for /f，是因为说实在的，我一直没有太搞明白for命令的很多用法，至少我一直就不太明白for /r是什么意思，但刚才我自己试了一下，终于是明白一点儿了，所以我那条命令可以改成：
for /r %dst% %%f in (*.*) do if %%~tf LSS %1 del /f /q %%f && echo 删除 %%f

呵呵，原因就是这么简单，我对技术的追求不象Wil兄那样执着，我的目标就是完成任务就好。说实在的，我对Wil兄写批处理的技巧是打心底里佩服的，但却感觉自己永远也达不到这种水平，而且我觉得Wil兄的批处理技巧是有余了，但实在不容易让人看明白，你楼上那个批处理，直到回这个帖子的时候我才算是看明白了。

前些天我写了两个Dos下的小程序，刚好可以完成这项任务。

批处理的内容是这样的：
******************************************************
@echo off

rem ============================================
rem 这个批处理的作用是删除d:\datafile里面
rem 最后一次修改是7天之前（不包括7天）的
rem 所有文件(包括所有子目录里的文件)
rem ============================================



rem ============================================
rem 得到7天前的日期
rem 如果今天是8月25，则7天前是日期是 8月18日
rem ============================================
GetInfo.COM /d:-7
set theDay=%year%-%mon%-%day%



rem ============================================
rem 这是在D:\datafile中搜索8天前(含8天)修改过的文件
rem 即8月17日 及 之前 修改的文件
rem ============================================
attrib/s d:\datafile\*.* -h -r -s
:Loop
dirt.com /d:-%theDay% d:\datafile\*.* /q
if %DirtRet%==Fail goto end
del %FPath%\%FName%
goto Loop

:end


******************************************************



里面的DirT.com和GetInfo.com可以到http://www.13886.com/soft//下载，


win2000的Dos里del命令好象有一个参数，可以在删除文件的时候不用用户的确认，你可以在del %FPath%\%FName%里加入那个参数

Last edited by zybird on 2006-5-6 at 13:38 ]

这两个命令倒挺有意思，也很有用，能不能直接用附件传到这里来，因为那个网址无法访问了。

Originally posted by Climbing at 2005-8-29 05:02 PM:
这两个命令倒挺有意思，也很有用，能不能直接用附件传到这里来，因为那个网址无法访问了。

在ys168上不知道为什么总是会出现无法下载，现在我上传到这里。

如果使用的过程，有什么疑问或出现什么错误，请告诉我！谢谢！


Getinfo.com 和 dirt.com 可以直接在下面这个网址下载了！！

http://www.13886.com/soft/

Last edited by zybird on 2006-5-6 at 13:37 ]

谢谢zybird朋友，这两个命令都是用Qbasic开发的吧？

不客气！

这是用 tc++ 3.0写的

Re All:

因为个人原因，一个星期没有来论坛了，发现变化真是不小！现在附上9楼解题思路中1提到的set /a计算日期差值的方案。至于第三方程序，zybird的程序已经很好了，向 zybird 兄致敬。

:: DateDel2.bat - 删除指定路径下指定日数以前修改的文件

:: Will Sort - 2005-9-2 - CMD@WinXP

:: 注意事项：参数%1指定日数，昨天为1，前天为2，依次类推

::           参数%1指定文件路径，省略时将处理当前路径

:: 核心算法：Ritchie Lawrence, updated 2002-08-13. Version 1.1

::

@echo off & setlocal ENABLEEXTENSIONS 

call <img src="images/smilies/face-smile-big.png" align="absmiddle" border="0">ate2Day %date:~0,10% sdays

set /a sdays-=%1

call <img src="images/smilies/face-smile-big.png" align="absmiddle" border="0">ay2Date %sdays% difdate

echo 将删除 %cd% 下 %difdate% 前的修改的以下文件：

for /r %2 %%f in (*.*) do if "%%~tf" LEQ "%difdate%" echo "%%f"

goto :EOF



<img src="images/smilies/face-smile-big.png" align="absmiddle" border="0">ate2Day

setlocal ENABLEEXTENSIONS 

for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do ( 

  set yy=%%a & set mm=%%b & set dd=%%c 

)

set /a dd=100%dd%%%100,mm=100%mm%%%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

endlocal&set %2=%j%&goto :EOF 



<img src="images/smilies/face-smile-big.png" align="absmiddle" border="0">ay2Date

setlocal ENABLEEXTENSIONS 

set /a i=%1,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 %2=%yy%-%mm%-%dd%&goto :EOF 

请问下各位大侠
为什么在win2000的命令行下无法显示year mon day 等环境变量?

D:\MULTIT~1\Getinfo>getinfo /d:-2
D:\MULTIT~1\Getinfo>echo %day%
%day%

Quote:
Originally posted by Climbing at 2005-8-25 17:38:
for /f "tokens=*" %f in ('dir /b/s') do @if %~tf LSS 2005-08-17 echo %~tf %f

强啊！！！



同意！！！<img src="images/smilies/face-laugh.png" align="absmiddle" border="0">

Last edited by smileseeker on 2005-10-17 at 20:12 ]

getinfo.com目前还无法修改cmd.exe中的环境变量，cmd.exe跟dos不一样

“for /f "tokens=*" %f in ('dir /b/s') do @if %~tf LSS 2005-08-17 echo %~tf %f”
里面的“%”在这里代表什么呀，请哪位指点一下？

我靠,看不懂````晕了。

上面方法删除文件好用,能不能不删除文件夹?

菜鸟请教地区为英文的操作系统 date显示为10/10/2007 wed 批处理应该怎么写？？

牛人啊,,,太强了...学得不少