Ordnergröße auslesen

Function OrdnerBytes(Ordner As String, _
Optional Endung As String = "*.*") As Double
'Für den Parameter Endung kannst Du z.B. *.xls eingeben dann werden nur
'alle Exceldateien gezählt
Dim dblBytes As Double
Dim strName As String
Dim strOrdner As String
dblBytes = 0
If Right(Ordner, 1) = "\" Then
strOrdner = Ordner
Else
strOrdner = Ordner & "\"
End If
strName = Dir(strOrdner & Endung)
Do While Len(strName) > 0
dblBytes = dblBytes + FileLen(strOrdner & strName)
strName = Dir
Loop
OrdnerBytes = dblBytes
End Function