Delphi自动清除临时文件及备份文件的批处理
2013-04-29 11:00
155 查看
title= 压缩备份Delphi工程
@ECHO OFF
:color 后面的数字,第一位代表背景色,第二位的数字代表前景色
color 0a
:删除临时文件
del /S *.~*
del /s *.cfg
del /s *.dof
del /s *.ddp
del /s *.dcu
del /s *.dsk
del /S *.hpp
del /S *.mps
del /S *.mpt
del /S *.bak
:删除history文件夹中临时文件
del /s/f/q __history
RD __history
:备份文件
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 当前时间是:%time:~0,2%点%time:~3,2%分%time:~6,2%秒%time:~9,2%厘秒
echo 已经保存到:%outpath%\%bakFileName%
pause
将以上内容保存为.bat文件复制到代码文件夹下运行即可
@ECHO OFF
:color 后面的数字,第一位代表背景色,第二位的数字代表前景色
color 0a
:删除临时文件
del /S *.~*
del /s *.cfg
del /s *.dof
del /s *.ddp
del /s *.dcu
del /s *.dsk
del /S *.hpp
del /S *.mps
del /S *.mpt
del /S *.bak
:删除history文件夹中临时文件
del /s/f/q __history
RD __history
:备份文件
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 当前时间是:%time:~0,2%点%time:~3,2%分%time:~6,2%秒%time:~9,2%厘秒
echo 已经保存到:%outpath%\%bakFileName%
pause
将以上内容保存为.bat文件复制到代码文件夹下运行即可
相关文章推荐
- Delphi自动清除临时文件及备份文件的批处理
- 系统临时文件“我作主“---清除临时文件的批处理
- 批处理实现每日自动备份和清除数据库文件
- VC VB Delphi 清除IE缓存 internet临时文件 cookie 历史记录 表单记录 上网密码
- 如何去掉Delphi自动生成的~.pas等临时文件
- Win7/8/10系统关机时自动清除临时文件垃圾的方法
- 批处理清除VC项目临时文件
- 关机自动清除电脑临时文件
- vs技巧分享:多程序集解决方案里临时文件清除和生成目录里依赖的第3方类库外部文件自动生成
- 如何让Win7系统每次关机时自动清除临时文件
- 关于清除临时文件和__desktop.ini的批处理
- Delphi 清除IE缓存 internet临时文件 cookie 历史记录 表单记录 上网密码[转]
- 如何去掉Delphi自动生成的~.pas等临时文件
- phper 的两个实用批处理助你自动格式化php代码、清除svn、netbeans等工程文件
- 清理临时文件的批处理代码
- 批处理文件bat清除.snv
- 自动查找并删除VC生成的临时文件
- 快速自动清除浪费空间的垃圾文件
- Open and run Grasshopper from a batch file 用批处理命令自动打开指定的3dm文件和GH文件
- crs自动清除日志的时候没有释放文件,bug17034444 的解决办法