La dimensione di una cartella

Uno script che permette di conoscere la dimensione 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 " &amp; 
mia.Size &amp; " bytes."
Set objFSO = Nothing 
%>