[Iska]

sov44, и напрасно: в WSH объект Folder имеет свойство «.Size»:

читать дальше »

Код:

Option Explicit

Dim objRegExp
Dim objFolder


Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.IgnoreCase = True
	.Pattern = "^\$NtUninstall.+\$$"
End With

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each objFolder In .GetSpecialFolder(0).SubFolders
		If objRegExp.Test(objFolder.Name) Then
			WScript.Echo objFolder.Name, objFolder.Size
		End If
	Next
End With

Set objRegExp = Nothing

WScript.Quit 0

Кстати, под приведённую Вами маску попадают не все потребные папки.