[Iska]

Подскажите, что надо дописать в этот скрипт, что бы в конце был суммирующий результат папки c:\TraLaLa\ »

Ничего.

Быстро

Код:

Option Explicit

WScript.Echo WScript.CreateObject("Scripting.FileSystemObject").GetFolder("C:\Мои проекты").Size

WScript.Quit 0

Правильно

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		WScript.Echo objFSO.GetFolder(strSourceFolder).Size
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0