|
<%
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 " Spazio occupato sul Server WEB: " & strSpace & " MB. "
%>
|
