VB Script - belegten Speicherplatz eines Ordners anzeigen

@echo off & Setlocal
Set Erg="D:\Ergebnis.txt"  
If Exist %Erg% del %Erg%
for /f %%f in (D:\liste.txt) do call :GetDirSize "%%f"  
goto :eof
:GetDirSize
for /f "tokens=2,3*" %%i in ('dir %1 /a /s /-c ^| findstr "Datei(en)"') do set Size=%%j  
echo %1; %Size% >> %Erg%
goto :eof

If WScript.Arguments.Count = 2 Then
	sFolderList = WScript.Arguments(0)
	sResults = WScript.Arguments(1)
Else
	WScript.Echo "Usage: " & WScript.ScriptFullName & " Listendatei Ergebnisdatei"  
	WScript.Quit(1)
End If

Set fso = CreateObject("Scripting.FileSystemObject")  
Set oResultsFile = fso.OpenTextFile(sResults, 2, True)
Set oListFile = fso.OpenTextFile(sFolderList, 1)

Do While Not oListFile.AtEndOfStream
	sDirPath = oListFile.ReadLine
	If fso.FolderExists(sDirPath) Then
		Set oFolder = fso.GetFolder(sDirPath)
		oResultsFile.WriteLine Chr(34) & sDirPath & Chr(34) & ";" & FormatNumber(oFolder.Size /1024 / 1024, 3,,,False)  
	Else
		oResultsFile.WriteLine Chr(34) & sDirPath & Chr(34) & ";" & Chr(34) & "nicht gefunden" & Chr(34)  
	End If
Loop

oResultsFile.Close
oListFile.Close

...
Function HabIchLeseRechte( strOrdner)
 ' Return: TRUE,/WAHR, wenn wenigstens Lese-Rechte auf alle Dateien da sind  
 ' Pflichtparameter strOrdner: Pfad, auch Netzwerk oder UNC Pfad  
 On Error Resume Next
 Dim fso, f, fc, f1
 HabIchLeseRechte = False
 Set fso = CreateObject("Scripting.FileSystemObject")  
 Set f = fso.GetFolder(strOrdner)
 Set fc = f.Files
 For Each f1 In fc
  If Err.Number <> 0 Then Exit For
  HabIchLeseRechte = True
  Exit Function
 Next
 Err.Clear
 On Error GoTo 0
End Function

..
If HabIchLeseRechte(sDirPath) then
     Set oFolder = fso.GetFolder(sDirPath)
      '... wie oben  
Else
     oResultsFile.WriteLine Chr(34) & sDirPath & Chr(34) & ";" & Chr(34) & " keine Rechte" & Chr(34)  

End if
....

Function HabIchLeseRechte(strOrdner)
 ' Return: TRUE,/WAHR, wenn wenigstens Lese-Rechte auf alle Dateien da sind  
 ' Pfad, auch Netzwerk oder UNC Pfad  
 On Error Resume Next
 Dim fso, f, fc, f1
 HasRights = True
 Set fso = CreateObject("Scripting.FileSystemObject")  
 Set f = fso.GetFolder(strOrdner)
 Set fc = f.Files
 'Falls keine Rechte auf den Ordner, bereits hier ein Error  
 If Err.Number = 0 Then
  For Each f1 In fc
  Dummy = f1.Size
  If Err.Number <> 0 Then 
    HasRights=False
	Exit For
  End If
  Next
 Else
  HasRights=False
 End If
 HabIchLeseRechte = HasRights
End Function