On Error Resume nextSet objFSO = CreateObject("Scripting.FileSystemObject")objStartFolder = "C:\wamp\www\discoup9_v3"Set objFolder = objFSO.GetFolder(objStartFolder)ShowSubfolders objFSO.GetFolder(objStartFolder)Sub ShowSubFolders(Folder) For Each Subfolder In Folder.SubFolders 'WScript.Echo Subfolder.Path If Subfolder.name = ".svn" Then 'WScript.Echo Subfolder.Path Err.Clear objfso.DeleteFolder subfolder.path,True If Err.Number<>0 Then WScript.Echo subfolder.path &" - Err Number:"& Err.Number & " Err Description: " & Err.Description End if End If ShowSubFolders Subfolder NextEnd Sub
You may require elevated privileges in Vista
http://www.lytebyte.com/2008/10/22/how-to-run-as-administrator-in-vista-command-line/
Open in new window