捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
批处理压缩备份Delphi工程(v2.1)
关键字:批处理压缩备份Delphi工程(v2.1)
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:中级 完成时间:2010/8/11
发布者:51ccc 发布时间:2010/8/12
编辑器:DELPHI7 语  种:简体中文
分 类:不常用 下载浏览:200/7685
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
1.单独分离了一个删除Delphi工程临时文件的批处理
2.包含两个文件
  51ccc_ClearDelphi_2.1.bat  删除Delphi工程临时文件
  51ccc_BackupDelphi_2.1.bat 批处理压缩备份Delphi工程


::51ccc_BackupDelphi_2.1.bat

title= 压缩备份Delphi工程 write by 51ccc 2010-08-11

@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中当前文件夹(包含子文件夹)中的临时文件
::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



----------
::51ccc_ClearDelphi_2.1.bat

title= 删除Delphi工程临时文件 write by 51ccc 2010-08-11

@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中当前文件夹(包含子文件夹)中的临时文件
::cd
for /f "usebackq tokens=1* delims=/" %%a in (`dir /s /b /a:d ^| findstr /i "\\__history$"`) do rmdir /s /q "%%a"

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

echo 清楚临时文件完成!

pause
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论6条 当前显示最后6条评论
51ccc 2010/8/17 8:43:19
下载地址 http://www.ip115.com/51ccc_BackupDelphi_2.1.rar
coolslob 2010/8/23 0:02:13
真是用心良苦啊,又更新了。
假设我有10个工程,那么我要在10个工程目录下都放个批处理文件。

新加个.reg文件,添加右键菜单 :)
51ccc 2010/8/28 9:54:19
支持右键备份  ftp://uploads.2ccc.com/51ccc_DelphiBackup v1.0.rar
51ccc 2010/8/28 9:54:58
源码稍后放出
dalongx 2011/3/10 10:51:15
不知如何添加到右键,下载地址不可用!!
shangpu114 2011/9/27 21:18:12
::如果小时数只有一位数字,造成中间有空格而出错的问题,请使用如下方法补0
set hh=%time:~0,2%
if /i %hh% LSS 10 (set hh=0%time:~1,1%)???
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表