Public Function FolderSize(ByVal strFolder As String) As Double
 
    Dim FSO As New Scripting.FileSystemObject
    Dim Folder As Scripting.Folder
    Dim dblAns As Double
 
    ' Ggf. abschliessenden Backslash anfügen
    If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
    Set Folder = FSO.GetFolder(strFolder)
 
    dblAns = (Folder.Size / 1024) / 1024
    dblAns = Format(dblAns, "###,###,##0.00")
 
    FolderSize = dblAns
 
End Function

Mit freundlichen Gr??en,
Andy G.