habe ich in Excel VBA die Möglichkeit, die Größe eines bestimmten Ordners auszulesen?
Ich möchte als Beispiel wissen, wie groß der Ordner "C:\Programme" ist.
Vielen Dank für Eure Unterstützung.
Micha
Sub test()
Dim fso
Dim dat
Set fso = CreateObject("Scripting.filesystemobject")
Set dat = fso.getfolder("C:\Programme")
MsgBox dat.Size
End Sub
Sub test()
Dim fso, dat, NB, KB, MB, GB
Set fso = CreateObject("Scripting.filesystemobject")
Set dat = fso.getfolder("C:\Programme")
NB = dat.Size & " Byte"
KB = dat.Size / 1024 & " KB"
MB = dat.Size / 1024 / 1024 & " MB"
GB = dat.Size / 1024 / 1024 / 1024 & " GB"
MsgBox NB & Chr(13) & KB & Chr(13) & MB & Chr(13) & GB
End Sub