DIVANET.COM (Directory Size)

<% Option Explicit %> DIVANET.COM (Directory Size)

This is your Disk Usage Summary: <% Dim oFSO,s,iTotal, oFiles, iRoot, iMinus %>

<% Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oFiles = oFSO.GetFolder( Server.MapPath("..") ) iTotal = 0 iMinus = 0 For Each s in oFiles.SubFolders If Left(s.Name,1) = "_" then iMinus = iMinus + s.Size Else iTotal = iTotal + s.size %><% End If Next iRoot = oFiles.size - iTotal %><% %> <% iTotal = oFiles.size - iMinus %>

Directory Megabytes Kilobytes Bytes
<%= s.name %> <%= formatnumber((s.size/1024/1024),2) %> <%= formatnumber((s.size/1024),0) %> <%= formatnumber(s.size,0) %>
(root) <%= formatnumber((iRoot/1024/1024),2) %> <%= formatnumber((iRoot/1024),0) %> <%= formatnumber(iRoot,0) %>
---------- ---------- ----------

Total <%= formatnumber((iTotal/1024/1024),2) %> <%= formatnumber((iTotal/1024),0) %> <%= formatnumber( iTotal,0) %>

Directory	Megabytes	Kilobytes	Bytes
<%= s.name %>	`<%= formatnumber((s.size/1024/1024),2) %>`	`<%= formatnumber((s.size/1024),0) %>`	`<%= formatnumber(s.size,0) %>`
(root)	`<%= formatnumber((iRoot/1024/1024),2) %>`	`<%= formatnumber((iRoot/1024),0) %>`	`<%= formatnumber(iRoot,0) %>`
	`----------`	`----------`	`----------`
Total	`<%= formatnumber((iTotal/1024/1024),2) %>`	`<%= formatnumber((iTotal/1024),0) %>`	`<%= formatnumber( iTotal,0) %>`