[Iska]

alemaxona, проще расширить скрипт VBScript, наподобие:

Код:

Option Explicit

Dim objFSO

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.GetFolder("c:\Temp").Size > 2^20 Then
	' Здесь код из «старого» скрипта VBS
End If

Set objFSO = Nothing

WScript.Quit 0