中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-12 19:24
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 文件备份器 查看 1,408 回复 5
楼 主 文件备份器 发表于 2009-10-22 18:14 ·  中国 吉林 长春 电信
初级用户
★★
积分 132
发帖 68
注册 2008-07-29 20:51
18年会员
UID 122345
性别 男
状态 离线
默认备份次数:10次,默认备份类型:*.txt,默认备份路径:当前路径下BakFile
超过10次,依次向前滚动,替换备份时间最早的.



@echo off
mode con cols=78 lines=3&color b0
setlocal enabledelayedexpansion
Title 载入中...


::备份文件次数,超过此次数,依次向前替换上一次备份
set strBakCount=10
::备份路径
set strBakPath=BakFile
::备份类型
set strFo=*.txt



::备份文件夹初始化
md !strBakPath!\ >nul 2>nul
md ...\ >nul 2>nul
for /l %%i in (0,1,!strBakCount!) do (
md !strBakPath!\!strBakPath!s%%i >nul 2>nul
attrib +s +a +r !strBakPath!\!strBakPath!s%%i)
::初始化与读取操作数SaveCount
if not exist !strBakPath!\!strBakPath!s0\DatSet.dat echo SaveCount=0 >!strBakPath!\!strBakPath!s0\DatSet.dat
for /f "tokens=1-2 delims==" %%i in ('type !strBakPath!\!strBakPath!s0\DatSet.dat') do (
if /i "%%i"=="SaveCount" set strSaveCount=%%j
if /i "%%i"=="DateTime" set strDateTime=%%j)
set /a strSaveCount+=0
Title !strBakPath! - 文档上限:!strBakCount! - 已存在!strSaveCount!次备份 - 最后备份时间:!strDateTime!
echo.&echo 按任意键开始备份...&pause>nul

::备份操作判断
if !strSaveCount! geq !strBakCount! (
::备份文件夹已满
for /l %%i in (1,1,!strBakCount!) do (
set /a strTmp=%%i - 1
move /y !strBakPath!\!strBakPath!s%%i\!strFo! !strBakPath!\!strBakPath!s!strTmp!\)
copy /y !strFo! !strBakPath!\!strBakPath!s!strBakCount!\ >nul 2>nul
)else (
::备份文个夹未满
set /a strSaveCount+=1
copy /y !strFo! !strBakPath!\!strBakPath!s!strSaveCount!\ >nul 2>nul)
::后续操作
del /q !strBakPath!\!strBakPath!s0\!strFo! >nul 2>nul
echo SaveCount=!strSaveCount! >!strBakPath!\!strBakPath!s0\DatSet.dat
echo DateTime=%date:~0,10%,%time:~0,5% >>!strBakPath!\!strBakPath!s0\DatSet.dat
cls&echo.&echo 备份完成.&pause>nul








[ Last edited by bluewaterx on 2009-11-4 at 21:37 ]
2 发表于 2009-10-22 20:55 ·  中国 江苏 南京 电信
初级用户
★★
积分 62
发帖 62
注册 2007-07-14 14:39
19年会员
UID 93962
性别 男
状态 离线
呀,好实用的一段批处理,感谢呀!偶也提供一个吧,不过太简陋了:


Start ""/w "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe" %1
xcopy /m/d/y/s "d:\资料\*.*" "e:\备份资料\"


是用来每次编辑完“d:\资料”里的稿件后,在关闭word时,就会自动备份一下的
3 发表于 2009-10-23 21:58 ·  中国 云南 玉溪 电信
新手上路
积分 14
发帖 13
注册 2009-07-06 12:21
17年会员
UID 148847
性别 女
状态 离线
偶都看不懂,看来要好好学习了~
天行健 君子以自强不息
4 发表于 2009-11-05 01:04 ·  中国 江苏 苏州 电信
初级用户
★★
积分 133
发帖 75
注册 2008-08-03 01:08
18年会员
UID 122677
性别 男
状态 离线
%1有何用意?谢谢
5 发表于 2009-11-06 08:40 ·  中国 吉林 长春 电信
初级用户
★★
积分 132
发帖 68
注册 2008-07-29 20:51
18年会员
UID 122345
性别 男
状态 离线
Originally posted by slw218856 at 2009-11-5 01:04 AM:
%1有何用意?谢谢



...接收参数1

eg:

call :subA "hello" 123
pause&exit


:subA
echo %1 %2
goto :eof
6 发表于 2009-11-16 02:09 ·  中国 广东 广州 荔湾区 电信
新手上路
积分 1
发帖 1
注册 2009-11-14 15:17
16年会员
UID 154744
性别 男
状态 离线
如果我要修改路径比如修改为e:\该如何修改``我只能修改到在E:\``但是只能备份一个
论坛跳转: