指定DIR以下の'.svn'以下を全部削除するコマンド (それなりブログ)

url

http://kjirou.sakura.ne.jp/mt/2008/01/dirsvn.html
[subversion]
linuxのコマンドで.svnを全部削除する方法。
まあ、最終的にはsubversionの仕様でsvkみたくチェックアウトしたディレクトリをクリーンなまま使えるようになるのが理想な気がするけど。


私はwindowsなので、こういうのを書いて利用してる。


'指定フォルダのSubversionの作業ファイルを削除し、

'Subversion管理下から外す

Set oWArgv  = WScript.Arguments
If oWArgv.length = 0 Then

WScript.Echo "ドラッグ＆ドロップしてください。"

WScript.Quit

End If
Set WShell = CreateObject("WScript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")

Set oRegExp = CreateObject("VBScript.RegExp")
For i = 0 To oWArgv.Count - 1

Set folder = fso.GetFolder(oWArgv.item(i))

Call ProcSubf(folder)

Next
WScript.Echo "SVN Delete End"
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'再帰して指定フォルダ以下の全てのファイルに処理を行う

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Function ProcSubf(f)

'現在フォルダの処理

WShell.CurrentDirectory = f.Path

Call WShell.Run("cmd /c rmdir /s /q .svn", 0, 1)
'サブフォルダが無い場合、終了

If f.SubFolders Is Nothing Then Exit Function
Dim subf

'各サブフォルダに対して再帰

For Each subf In f.SubFolders

Call ProcSubf(subf)

Next

End Function