Delphi自动清除临时文件及备份文件的批处理

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文件复制到代码文件夹下运行即可

转载于:https://www.cnblogs.com/lzj1981/archive/2013/04/29/3050419.html

Delphi自动清除临时文件及备份文件的批处理相关推荐

如何去掉Delphi自动生成的~.pas等临时文件
如何去掉Delphi自动生成的~.pas等临时文件一.Delphi7 二.Delphi2010 转载于:https://www.cnblogs.com/m0488/archive/2013/05/2 ...
php 删除其他盘符,Linux_自动清除电脑垃圾及删除windows默认共享盘符的批处理bat，by:zuifeng258Windows在默认情况下 - phpStudy...
自动清除电脑垃圾及删除windows默认共享盘符的批处理bat by:zuifeng258 Windows在默认情况下几个盘多是共享的,它们是隐藏的危险. 在dos下用命令"net shar ...
linux删除mysql临时文件_linux下mysql自动备份数据库与自动删除临时文件_MySQL
bitsCN.com linux下mysql自动备份数据库与自动删除临时文件一.每日23:00自动删除临时文件首先查看一下crontab的任务列表:crontab -l然后新建:crontab - ...
linux mysql 临时文件_linux下mysql自动备份数据库与自动删除临时文件
一.每日23:00自动删除临时文件首先查看一下crontab的任务列表: crontab -l 然后新建: crontab -e 添加一行: 00 03 * * * rm -rf /www/cmst ...
删除mysql临时文件_mysql自动备份数据库与自动删除临时文件
mysql自动备份数据库与自动删除临时文件,有需要的朋友可以参考下. 一.每日23:00自动删除临时文件首先查看一下crontab的任务列表: crontab -l 然后新建: crontab -e ...
定时自动清除tmp工具tmpwatch
转载来源 :定时自动清除tmp工具tmpwatch :https://www.fuuyun.org/?p=1216 习惯性的将一些临时文件放在tmp目录下,让其自然删除.同时,为了保证tmp目录不爆满 ...
altium designer 不自动清除回路清除功能打开失效
Altium Designer可以自动清除回路,功能打开或关闭控制选项如下: 在布线时,按tab键就可以唤出来. 但是有时候,这个选项勾上了,自动清除功能也没有,就像失效了一样.本人碰到了好多次了,经 ...
wps临时文件不自动删除_电脑：让 Windows 10 系统自动清理临时文件
不少朋友在系统用久了以后,都会用一些软件来帮忙清理系统中没用的文件,其中包括一些临时文件.无用文件等. 但其实在 Windows 10 中,系统已经内置了自动定期清理临时文件的功能了.你还不知道?跟着 ...
自动清除html无用css,TinyMCE粘贴HTML代码，避免style属性被自动清除_html/css_WEB-ITnose...
TinyMCE在粘贴含有style属性的HTML代码时,会自动清除style属性,设置 extended_valid_elements 也只能在Firefox浏览器起作用,Chrome无效. exte ...

Delphi自动清除临时文件及备份文件的批处理

Delphi自动清除临时文件及备份文件的批处理相关推荐

最新文章

热门文章