中国DOS联盟

To All:
这原本是应网友之托而写的一个小程序，只是后来发现原程序在NT环境下无法正常使用，由此引发了NT和9x命令行兼容性的学习。其中，文件的遍历是最早进行的，而此代码其实也是文件遍历的的一种变形, 所以在更新了文件遍历代码 Visit.bat 之后，顺便将它也更新了。

:: DelOld.Bat - 删除当前文件夹中最早被修改的一个文件

:: Will Sort - 2004/06/26

:: 2004/11/13 Updated

@echo off

if == goto %2



:: 创建并执行一个DEBUG脚本，以生成一个设置变量 %File% 的前缀文件

:MakeScr

echo e 100 'set File='> ~DelOld.asd

for %%s in (rcx 9 n~DelOld.pre w q) do echo %%s>> ~DelOld.asd

debug < ~DelOld.asd > nul

if == chcp 936>nul

if not exist ~DelOld.pre %0 $ Error Can't make prefix file.



:: 设置变量 %File% 为最旧文件并将其所指的文件之删除（不会删除自身）

:: 若想删除目录，可将1句中的 /a-d 改为 /ad，4句中的del 改为deltree /y

elAnOld

dir %1 /a-d /od /b | find "DelOld" /v /i >> ~DelOld.pre

find "set File=" < ~DelOld.pre > ~DelOld.bat

call ~DelOld.bat

if not "%File%"=="" del "%File%"



:: 清理生成的临时文件

:Clear

for %%f in (~DelOld*.*) do del %%f

set File=

goto end



:: 错误处理

:Error

shift

shift

echo.

echo Error: %1 %2 %3 %4 %5 %6 %7 %8 %9

echo.

goto end



:end

[ Last edited by willsort on 2005-8-26 at 18:57 ]

收藏!