AutoCheckoutSVN 自动化SVN下载

AutoSVN.vbs

------------------------------------------------------以当前时间命名新建目录来检出SVN

projectname=Date&"_"&Time
projectname=Replace(projectname,":","_")
projectname=Replace(projectname,"-","_")
projectPath="C:\"&projectname
svnPath="https://1xx.xxx.xxx.xxx/svn/xxxx/xxxxxxxxxx"
batsvncmdPath="C\checkoutSVN.bat"
MsgBox "SVN源路径"&svnPath
MsgBox "目标路径"&projectPath

cmd=batsvncmdPath&" "&chr(34)&svnPath&chr(34)&" "&Chr(34)&projectPath&Chr(34)
MsgBox "Run："&cmd
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run cmd               '  执行checkoutSVN.bat 批处理运行SVN命令行

------------------------------------------------------

 

checkoutSVN.bat

-----------------------------------------------------

@echo off
echo %1
echo %2
REM 改标题
title AutoCheckoutSvnProject

echo AutoCheckoutSvnProject start!

REM 删除目录
rd /s /q %2

svn checkout %1 %2 -r HEAD --username xxxxxx --password xxxxxx

echo AutoCheckoutSvnProject finished!

-----------------------------------------------------