Delphi程序发布及源码简易备份脚本

@ECHO ========================================================
@ECHO              Delphi程序发布及源码简易备份脚本
@ECHO                   Dan Thunder 2004.8.16
@ECHO ========================================================
@ECHO OFF
@if "%1"=="" goto Usage

@ECHO 清理编译中间文件...

@del %1/*.~*  /Q
@del %1/*.dcu /Q
@del %1/*.ddp /Q

@ECHO 清理完成,开始同步到服务器...

copy %1/Release/*.* %2/ /y /Z
copy %1/Release/%3/*.* %2/%3/ /y /Z

@ECHO 同步完成,按任意键开始备份,否则可以关闭窗口.
@PAUSE
@del %1.RAR /Q
@start /wait winrar a -r %1.RAR  %1
@ECHO 开始远程备份
@copy %1.RAR //Server/程序测试/程序备份 /Y
@ECHO 远程备份完成
@ECHO 开始本机备份
@copy %1.RAR G:/BAK/
@ECHO 本机备份完成
@goto END

@:Usage
 @ECHO 使用方法：Bak.bat {本地文件路径} {目标文件路径} {相对报表文件夹}
:END
@PAUSE