delphi确实好用,但它生成的各种文件,有时对我们来说基本没用,随着我们做的项目越来越多,其中无用的文件有时能占到三分之一。今晚写了个小工具,可以递归清理 delphi文件夹下无用的文件。
代码如下:
@echo "清除Delphi中的无用文件 1.0"
@echo "作者:DC"
@echo off
if "%1"=="" (goto currentPath)
else goto pointPath
:currentPath
set work_path=.
:pointPath
set work_path=%1
@echo 确定要清理%work_path%吗?
choice /c ny /m "确定按Y,取消按N"
rem errorlevel1对应n,2对应y
if errorlevel 2 goto continue
if errorlevel 1 goto complate
:continue
cd %work_path%
for /R %%s in (.) do (
rem echo %%s
rem 删除delphi无用文件
rem del ~*.* /s
del *.~* /s
del *.obj /s
del *.dcp /s
del *.dcu /s
rem del *.dpl /s
)
:complate
echo "运行完毕"
pause