' ====================================================================
'  subversion tools v1.0  by TATUO
' 
'	レポジトリ作業フォルダ trunk.branches,tags を指定したフォルダへ作成します。
' 
' $Id:$
' ====================================================================
Option Explicit
Dim strDir
Dim oWShell
Dim oFSO
'Dim strTortoiseSVNDir
dim szMsg
dim ret

' 引数がいる
if WScript.Arguments.count = 0 then WScript.Quit

strDir = WScript.Arguments(0)

' ノートンのアンチ・・・対応（いちいちうるさい） 今はウイルスバスターなのでこれで回避しきれるか不明
Set oWShell = WScript.CreateObject("WScript" & "." & "Shell")
Set oFSO = WScript.CreateObject("Scripting" & "." & "FileSystemObject")

' フォルダチェック
If Not oFSO.FolderExists(strDir) Then
	MsgBox "フォルダを指定して下さい。"
	WScript.Quit
End If

'strTortoiseSVNDir = oWShell.RegRead("HKLM\Software\TortoiseSVN\Directory")
'strTortoiseSVNDir = strTortoiseSVNDir & "bin"
'WScript.Echo strDir

szMsg = ""
szMsg = szMsg & "フォルダ:" & strDir & "   " & vbCrlf & vbCrlf
szMsg = szMsg & "このフォルダに以下のフォルダを作成します。" & vbCrlf & vbCrlf
szMsg = szMsg & "/trunk　　　　作業エリア（トランク）" & vbCrlf
szMsg = szMsg & "/branches 　複製（ブランチ）" & vbCrlf
szMsg = szMsg & "/tags 　　　　見出し（タグ）" & vbCrlf
ret = oWShell.Popup(szMsg, 0, "確認", 32 + 4)
'WScript.Echo ret
If ret = 7 then
	' キャンセル
	WScript.Quit
End If
'WScript.Quit

' ディレクトリ作成
'Call CreateDIR(strDir)		' プロジェクト

If Right(strDir, 1) <> "\" then strDir = strDir & "\"
Call CreateDIR(strDir & "trunk")		' 作業エリア（トランク）
Call CreateDIR(strDir & "branches")		' 複製（ブランチ）
Call CreateDIR(strDir & "tags")			' 見出し（タグ）


Set oWShell = Nothing
Set oFSO	= Nothing

WScript.Echo "作成完了"

WScript.Quit

' 再帰的にディレクトリ作成
Function CreateDIR(ByVal strDirPath)
'	On Error Resume Next
	Dim arPath
	Dim nLevel
	Dim strPathTmp
	Dim cPath
	Dim I

	strDirPath = Replace(strDirPath, "\", "/")
	arPath = Split(strDirPath, "/")
	nLevel = UBound(arPath)
	For I = 0 To nLevel
		If I = 0 Then
			strPathTmp = arPath(0) & "/"
		Else
			strPathTmp = strPathTmp & arPath(I) & "/"
		End If
		cPath = Left(strPathTmp, Len(strPathTmp) - 1)
		If Not oFSO.FolderExists(cPath) Then
			Call oFSO.CreateFolder(cPath)
		End If
	Next
	If Err.Number <> 0 Then
		CreateDIR = False
		Err.Clear
	Else
		CreateDIR = True
	End If
End Function