中国DOS联盟

@echo off
:: StoneLei.BAT 为网友StoneLei下述目的所创建的批处理文件
:: 1. 在C盘上创建一个目录叫TBLBAK,如果有就不创建.再在TBLBAK里面创建一个以日期命名的目录(或者其他方式命名都可以)
:: 2. 复制 c:\faspic\tbl*.* 到 C:\tblbak\之前创建的目录
:: 3. 覆盖复制 a:\tbl*.* 到 c:\faspic
:: 4. 检测 c:\tblbak 目录下由本批处理创建的目录是否超过10个,如果超过,就把最早期建立的删除,即保持最多并且是最后的10个目录
::
:: 作者：Climbing(xclimbing@msn.com)
:: 版本：1.0
:: 创建日期：2004.08.26 12:15
:: 最后修改日期：2004.08.26 12:54
:: 本批处理是为MS-DOS 6.22环境设计的，程序运行中将用到Horst的nset, dready, lmod实用程序
:: 本批处理与天汇汉字系统并不兼容，建议你用ucdos汉字系统。cls:: 检测C:\tblbak目录是否存在，如果不存在则创建之
if not exist c:\tblbak\nul md c:\tblbak:: 使用Horst的nset命令取得以当前日期为名的环境变量curdir
set curdir=
echo. | date | nset /S- curdir=$5$6$7:: 检测要创建的以当前日期为名的目录是否存在，如果存在，则错误
if exist c:\tblbak\%curdir%\nul goto _error1:: 不存在则创建
md c:\tblbak\%curdir%:: 进行第一步的文件备份操作
if not exist c:\faspic\nul goto _error2
xcopy /e /y c:\faspic\tbl*.* c:\tblbak\%curdir% > nul:: 检测软驱是否准备好，如果准备好，进行文件的复制操作
:_chkflp
cls
echo 请将软盘放入软驱，准备好后按任意键继续...
pause > nul
dready a:
if errorlevel 2 goto _noflp
goto _cpflp
:_noflp
echo 错误：软驱没有准备好！
echo 请检查软盘是否正确，按任意键重试...
pause > nul
goto _chkflp:_cpflp
xcopy /e /y a:\tbl*.* c:\faspic > nul:: 开始检查以日期为目录名的目录是否超过10个，如果超过，则删除多余的
:: 注意，为了方便检测以日期为目录名的目录，默认所有以20打头的目录为以日期命名的目录
dir /ad/b/o-d c:\tblbak\20*.* | lmod /L11* @deltree /y c:\tblbak\[] ["> nul"] > temp.bat
call temp.bat
del temp.bat
goto _runok:_error1
echo 错误：c:\tblbak\%curdir% 目录已经存在！
goto _runerr:_error2
echo 错误：c:\faspic 目录不存在！
goto _runerr:_runerr
echo.
echo 抱歉，程序运行中发生错误。
echo 程序将退出。
goto _quit:_runok
echo 恭喜：程序运行成功完成！
goto _quit:_quit
set curdir=

echo if not [%%date%%]==[] goto end>getdate.bat
echo set date=%%3>>getdate.bat
dir getdate.bat | find "getdate  bat" /i >>getdate.bat
echo :end>>getdate.bat
for %%c in (call del) do %%c getdate.bat

dir c:\\directory /ad /od /b | find "-0" > datedir.lst
fc datedir.lst nul /n | find "11: ">delcall.bat
echo deltree %%1 /y >11.bat   
for %%c in (call del) do %%c delcall.bat
for %%f in (11.bat datedir.lst) do del %%f