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
