一鍵清除Delphi中無用的檔案

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