Option Explicit

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\Users\Администратор\Documents\proga", true

Option Explicit

Dim fso, WshShell, RefFolder

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set RefFolder = fso.GetFolder(WshShell.CurrentDirectory) ' текущий каталог

DelMusor(RefFolder)

Set fso = nothing
Set WshShell = nothing
Set RefFolder = nothing

Sub DelMusor(MyPath)
	dim SubFolder

	on error resume next
	
	For Each SubFolder in MyPath.SubFolders
'		if Right(SubFolder,3) = "bin" then msgbox(SubFolder)

		if Right(SubFolder,3) = "bin" then
			fso.DeleteFolder SubFolder
		end if
		delMusor(SubFolder)
	Next  
End Sub