Conoscere la dimensione di una cartella

Con questo script è possibile conoscere il valore della dimensione in bytes di una cartella:

<%

Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Stabilisco il percorso della cartella

path = "c:miaCartella"

'Imposto l'istanza

Set mia = objFSO.GetFolder(path)

'Visualizzo la dimensione della cartella

Response.write "La cartella è grande " & mia.Size & " bytes."

Set objFSO = Nothing

%>