Est-il possible en VBA de mesurer et renvoyer la taille d'un répertoire donné?

sub TailleUnRépertoire()
 
 Dim Fso As Object, A As Double
 Dim File As Object, Répertoire As String
 
 Répertoire = "C:\Excel"
 
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set File = Fso.GetFolder(Répertoire)
 A = File.Size
 
 MsgBox "Taille du répertoire " & File & " : " & A
 
 end sub