Saber Tamaño de Carpeta con FSO desde VB6

Este es un codigo que permite saber cuanto ocupa una carpeta cualquiera en el disco rigido.Este ejemplo esta hecho con FSO por lo que necesitas agregar la Refrencia Microsoft Scripting Runtime, en el menu Proyecto–>Referencias.

En el Formulario pone: 

Private Sub Form_Load()
Dim fso As New FileSystemObject
Dim fldCarpeta As Folder
Set fldCarpeta = fso.GetFolder("C:\WINDOWS")
MsgBox "La Carpeta Ocupa " & fldCarpeta.Size & " bytes"
End Sub