Spazio occupato

Questo script permette di calcolare lo spazio che occupa un sito su un sever:

<%
path = Server.MapPath("/")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(path)
FolderSize = CSng(Folder.size)
strSpace = Round(FolderSize/1024/1024, 2) ' in MB
strSpace = FormatNumber(strSpace, 2)
set Folder = Nothing
set FSO = Nothing
response.write "<P>Spazio occupato dalla directory: " 
& strSpace & " MB.</P>"
%>