Script Anzeige von mehreren Verzeichnisgrössen mit Auswertung

Script soll Grösse von mehr. Verz. anz. und bei Überschreitung einer def. eine Aktion ausf.

Hallo und ein gutes neues Jahr :- );

Folgendes hätte ich heute als Frage anzubieten:
Es soll auf einem XP-Rechner die Grösse von mehreren Verzeichnissen
ermittelt werden ( z. B. C:\data und C: Programme\test etc. ).
Dies per Script.
Die Grössen sollen dann addiert werden und einen bestimmten Wert
( z. B. 3,6 GB ) nicht überschreiten.
Falls dies Grössenüberschreitung geschieht soll eine Meldung erfolgen
( geht das per Kommandozeile oder auch per normalen WSH-Script vbs-File ?)
und eine nachfolgende Batch nicht ausgeführt werden.
Es wird dieser Script benötigt,
weil auf ein ext. Sicherungsmedium (USB-Stick max. 4 GB)
Dateien per MS-robocop* zu
kopieren sind ( die Batch dafür ist schon fertig und würde
die Dateien aus den o. g. Verzeichnissen kopieren ).
Dafür darf die Menge der zu sichernden Dateien nicht mehr als
3,6 GB sein und man braucht vorher eine Ermittlung.
Hat jemand eine einigermassen simple Lösung die auch
im Script mit Anmerkungen zum Verständnis ist ?

Many thanks in advance

Buxi

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

' Die Befehlszeile für Robocopy inkl. Schalter (/JOB, /LOG etc.) (Anpassen!)  
strCmd = "c:\...\Robocopy.exe ......"  

' Das erste Verzeichnis laden... (Pfad anpassen!)  
Set objFolder = objFSO.GetFolder("C:\Programme\Adobe")  
' ... dessen Größe in Bytes in eine Variable schreiben  
Fld1 = objFolder.Size
' Dito für das zweite Verzeichnis (Pfad anpassen!)  
Set objFolder = objFSO.GetFolder("C:\Programme\ASUS")  
Fld2 = objFolder.Size

' In GB umrechnen und entscheiden, ob Robocopy gestartet werden soll  
If (Fld1 + Fld2)/1073741824 < 3.6 Then
	' Der Aufruf von Robocopy  
	WshShell.Run strCmd
	' Damit der Benutzer erfährt wenn Robocopy fertig ist...  
	MsgBox "Fertig!"  
Else
	' ... oder warum nicht kopiert werden kann  
	MsgBox "Kopiervorgang konnte nicht gestartet werden! " & vbCrLf & "Ordnergröße: " & (Fld1 + Fld2)/1073741824 & " GB"  
End If

>diruse -s "y:\Eigene Dateien" d:\temp|find /i "  TOTAL"  
    618280875   4982  TOTAL