盒子 - 批处理压缩备份Delphi工程(v2.0)

			捐赠 \| 广告 \| 注册 \| 发布 \| 上传 \| 关于我们
		粤ICP备10103342号-1	DELPHI盒子 \| 盒子文章 \| 盒子问答悬赏 \| 最新更新 \| 盒子检索 \| 下载中心 \| 高级搜索
		粤ICP备10103342号-1	精品专区 \| 繁體中文 \| 奖励公告栏 \| 直通车账号登陆 \| 关闭GOOGLE广告 \| 临时留言

盒子资源分类

全部展开 - 全部合拢

批处理压缩备份Delphi工程(v2.0)

关键字：批处理压缩备份Delphi工程(v2.0)
来　自：原创
平　台：Win2k/XP/NT,Win2003	下载所需：0 火柴
深浅度：中级	完成时间：2010/7/28
发布者：51ccc	发布时间：2010/7/29
编辑器：DELPHI7	语　　种：简体中文
分　类：其他	下载浏览：195/8094

加入到我的收藏

下载错误报错

登陆以后才能下载

用户名：

密　码：

自动登陆(30天有效)

title= 压缩备份Delphi工程 write by 高文杰 ver 2.0 (2010-08-02 23:59:59)

@ECHO   OFF

::color 后面的数字,第一位代表背景色,第二位的数字代表前景色
color 37

::删除D7中临时文件
::删除一文件夹（包含子文件夹）中所有后缀名为指定类型的文件
cd   %pathName%
del *.cfg /s
del *.dof /s
del *.ddp /s
del *.~dpk /s
del *.~ddp /s
del *.~dpr /s
del *.~pas /s
del *.~dfm /s
del *.dcu /s
del *.dsk /s

::删除D2007中临时文件
::********** 注释 **********
::用批处理文件查找并删除文件夹及其下文件
::列出当前目录和子目录中包含“__history”的文件夹，然后删除。
::dir /s /b /a:d 用于列举当前目录和子目录。（/s 也列举子目录，/b 隐藏标题信息或摘要，/a 只列出指定属性的文件，d表示文件夹。）
::findstr /i "\\__history$" 在列出的目录中找出匹配“\__history”的文件夹，（/i 不区分大小写）
::for /f "usebackq tokens=1* delims=/" %%a in ...do remdir /s /q %%a 删除所找到的文件夹。(/s 删除子目录,/q 不需要确认）
::**********
::cd
for /f "usebackq tokens=1* delims=/" %%a in (`dir /s /b /a:d ^| findstr /i "\\__history$"`) do rmdir /s /q "%%a"

::备份文件
echo 当前盘符：%~d0
echo 当前盘符和路径：%~dp0

set "lj=%~p0"
set "lj=%lj:\= %"
for %%a in (%lj%) do set wjj=%%a
echo 当前文件夹:%wjj%

::如果小时数只有一位数字，造成中间有空格而出错的问题，请使用如下方法补0
set hh=%time:~0,2%
if /i %hh% LSS 10 (set hh=0%time:~1,1%)

::设置备份文件名称
set bakFileName=%wjj%_%date:~0,4%%date:~5,2%%date:~8,2%_%hh%%time:~3,2%%time:~6,2%.rar

if   exist   ..\backup   goto   creat_dst
md   ..\backup

:creat_dst
set rar="%ProgramFiles%\WinRAR\Rar.exe"
set inpath=.set outpath=..\backup

%RAR% a  -k -r -s -ibck "%outpath%\%bakFileName%" "%inpath%"

echo 当前时间是：%date:~0,4%年%date:~5,2%月%date:~8,2%日%time:~0,2%时%time:~3,2%分%time:~6,2%秒

echo 已经保存到：%outpath%\%bakFileName%

pause

本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！

龙脉加密锁 15元起

Grid++Report 报表

申请支付@网

没有相关文章

			捐赠 \| 广告 \| 注册 \| 发布 \| 上传 \| 关于我们
		粤ICP备10103342号-1	DELPHI盒子 \| 盒子文章 \| 盒子问答悬赏 \| 最新更新 \| 盒子检索 \| 下载中心 \| 高级搜索
		粤ICP备10103342号-1	精品专区 \| 繁體中文 \| 奖励公告栏 \| 直通车账号登陆 \| 关闭GOOGLE广告 \| 临时留言


		DELPHI盒子版权所有技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1