WWW.WERLHOF.NET

La natura ci ha dato la forza ed i mezzi...

Su

<% 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.

" %>