S. A. Gnezdov

I want to replace VBScript with PowerShell implementation. Here is VBScript
content:

' Deletes all .svn folders recursively
'
' To delete all .svn directories in current directory recursively execute
command:
' cscript del-svn-recursively.vbs

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(".")

Sub ShowSubFolders(Folder)
For Each eachFolder in Folder.SubFolders
' FSO.DeleteFolder(eachFolder)
if eachFolder.Name = ".svn" then
WScript.Echo eachFolder.Path
FSO.DeleteFolder eachFolder.Path, True
else
ShowSubFolders eachFolder
end if
Next
End Sub