[Iska]

Примерно так:

Код:

Option Explicit

Dim strFolder
Dim lngSize

Dim objFolder


strFolder = "E:\Песочница\0331"
lngSize   = 50 * 2^10

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strFolder) Then
		For Each objFolder In .GetFolder(strFolder).SubFolders
			If objFolder.Size < lngSize Then
				WScript.Echo "[" & objFolder.Path & "] deleting..."
				'objFolder.Delete True
			Else
				WScript.Echo "[" & objFolder.Path & "]"
			End If
		Next
	Else
		WScript.Echo "Folder [" & strFolder & "] not found."
	End If
End With

WScript.Quit 0

Укажите свой размер в «lngSize» вместо выделенного. Для реального удаления раскомментируйте выделенную строку.