Script ASP - File: Space - Morpheusweb.it - Webmaster resources: programming, asp script, using asp, file asp, asp, asp post, database asp, asp login, vb asp, asp access, asp download, asp script, formmail, area riservata, paginazione, scripts asp, mailform, asp script download

ABOUT >
WORKS >
CONTACT ME >
>

Home Page
> Script ASP
> Script ASP File
> Space

Space

Calculates the space occupied by a site on the 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>Directory size: " & strSpace & " MB.</P>"

					%>