VBScript: Problem Ordnergröße auslesen

[SEF]

Hallo zusammen,

hier kurz mein Problem:

Ich lese mit Hilfe von Size die Größe verschiedener Ordner aus. Diese Ordner haben dann natürlich noch Unterverzeichnisse(bis zu 10 Ebenen).

Mein Problem ist nun das ich keine Ordnergröße von Verzeichnissen auslesen kann bei dennen der komplette Pfad mehr als 250 Zeichen hat.

Eigentlich schaue ich mir mit Size nur die zweite Ebene an, aber anscheinend geht Size in die Unterverzeichnisse und rechnet so die Ordnergröße zusammen.

Hier mal ein Code-Ausschnitt:

'Im DriveArray stehen die Pfade zur ersten Ebene

For Each varSize in DriveArray



    Dim fs, f, f1, s, sf, lastFolder,folderSize

    Set fs = CreateObject("Scripting.FileSystemObject")

	Set f = fs.GetFolder(varSize)

    set sf = f.SubFolders


	'In sf stehen die Ordner der zweiten Ebende

    For Each f1 in sf


	If Not f1.name = lastFolder Then


		'Größe des Ordners in der zweiten Ebene bestimmen

		folderSize = f1.size


		'Wenn kein Fehler dann schreibe die Größe in die Ausgabedatei

		'Wenn Fehler gebe die Fehlermeldung in die Ausgabedatei aus

		If Err.Number <> 0 Then

			strOutput =	varSize & ";" & f1.name & ";Größe kann nicht gelesen werden"

			filDestDBsize.WriteLine strOutput

			strOutput = ""

			folderSize = 0

			Err.Clear

		Else

			strOutput =	varSize & ";" & f1.name & ";" & Round(f1.size/(1024*1024),0)

			filDestDBsize.WriteLine strOutput

			strOutput = ""

			folderSize = 0

		End if


		lastFolder = f1.name

	End if


Next

So ich hoffe ich konnte mein Problem gut genug beschreiben.

Ich bedanke mich schon einmal im Vorfeld für Eure Hilfe!

Viele Grüße,

SEF