使用Access快速开发平台开发软件后，有时候为了方便，在同一个文件夹里面放了好多资料文件和文件夹，导致需要发布的时候，需要把平台的文件和文件夹一个个把复制出来，使用bat脚本文件把平台文件复制到一个文件夹，同时压缩为一个zip文件，这样就方便多了。

代码如下:
rem set y=%date:~0,4%%date:~5,2%%date:~8,2%
rem  %date:~0,4% 年
rem  %date:~5,2% 月
rem  %date:~8,2% 日
rem 创建带年月日的文件夹方法
rem md "release%date:~0,4%%date:~5,2%%date:~8,2%"
@rem 


set %fileName%="UMV"
rem  if  not exist "%~dp0\release" md  "%~dp0\release"
rem set y="release%date:~0,4%%date:~5,2%%date:~8,2%"
set y="%fileName%%date:~0,4%%date:~5,2%%date:~8,2%"


if exist %y% rd %y% /s/q


md %y% 
copy main.accdb %y%
copy main.mdb %y%
copy backupFile.cmd %y%
copy Config.ini %y%
copy Data.mdb %y%
copy Download.mde %y%
copy  MSCOMCTL.OCX %y%
copy RDPLib.ucl  %y%
copy  RDPUpdate.mde  %y%
copy TEMP.DATA  %y%
copy Unpack %y%
copy Update.mde  %y%
copy  *.docx  %y%
copy  *.pdf  %y%
copy *.vbs %y%
copy *.bat %y%


xcopy images  "%y%\images\" /S /y


echo %y%
set RARPath="%ProgramFiles%\WinRar\winrar.exe"
 rem  %RARPath% a -ibck  -ep1 "%~dp0\release\release.zip" "%~dp0%y%"
 %RARPath% a -ibck  -ep1 "%~dp0\%filename%\%filename%.zip" "%~dp0%y%"
rem rd  %y% /s /q
rem "%~dp0%y%\"

附   件:

点击下载此附件