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