Subversion UnSvn

'deletes all .svn folders
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = Wscript.Arguments(0) 
 
Set objFolder = objFSO.GetFolder(objStartFolder)
'Wscript.Echo objFolder.Path
'Set colFiles = objFolder.Files
'For Each objFile in colFiles
'    Wscript.Echo objFile.Name
'Next
'Wscript.Echo
 
ShowSubfolders objFSO.GetFolder(objStartFolder)
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        'Wscript.Echo Subfolder.Path
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        'For Each objFile in colFiles
        '    Wscript.Echo objFile.Name
        'Next
 
        'Wscript.Echo
 
          if(instr(Subfolder.Path,".svn")) then
          'Wscript.Echo Subfolder.Path
          objFSO.DeleteFolder Subfolder.Path,True
          else
          ShowSubFolders Subfolder
         end if
    Next
End Sub