Sub CalcSize(Folder As String) As Long
Dim size As Long
For Each f As String In File.ListFiles(Folder)
If File.IsDirectory(Folder, f) Then
size = size + CalcSize(File.Combine(Folder, f))
End If
size = size + File.Size(Folder, f)
Next
Return size
End Sub