Pues eso, muchas veces tenemos web en frontpage o subidas por FTP y se hace dificil saber todo lo que tenemos en ella y cuanto ocupa, con este sencillo sript podemos hacerlo.
Nota: No es valido para el web raiz, por el juego de / \, pero si alguien lo retoca funciona perfectamente.
Ubicarlo en cualquier otra carpeta o subweb.
disk-space.asp
<%
' Captura el nombre de la pagina y la estructura del directorio
script_name=request.servervariables("script_name")
' Divide el arbol de direcotiros mediante /
split_name=split(script_name,"/")
' Numero de directorios bajo este
num_directory=ubound(split_name)-1
%>
<html>
<title>Espacio ocupado en un directorio y subdirectorios</title>
<body bgcolor="#FFFFFF">
<table align="center">
<tr>
<td width=150><b>Directory</b></td>
<td width=150><b>Megabytes</b></td>
<td width=150><b>Kilobytes</b></td>
<td width=150><b>Bytes</b></td>
</tr>
<%
' Crea un FSO y lee los directorios
' bajo el directorio actual split_name(num_directory)
set directory=server.createobject("scripting.filesyste mobject")
set allfiles=directory.getfolder(server.mappath("../"& split_name(num_directory)& "/"))
' Lista los ficheros del directorio
for each directory in allFiles.subfolders
' Ignora algunos directorios de MSFrontPage
if right(directory.Name,3) <> "cnf" then
' Añade el tamaño total la carpeta explorada
total_size=total_size + directory.size %>
<tr>
<td width=150>
<%= directory.name %>
</td>
<td width=150><%= formatnumber((directory.size/1024/1024),2) %></td>
<td width=150><%= formatnumber((directory.size/1024),0) %></td>
<td width=150><%= formatnumber(directory.size,0) %></td>
</tr>
<% end if 'Fin del checkeo de directorios frontpage
next 'Fin del bloque for next %>
<tr>
<td width=150><b>Total</b></td>
<td width=150><%= formatnumber((total_size/1024/1024),2) %></td>
<td width=150><%= formatnumber((total_size/1024),0) %></td>
<td width=150><%= formatnumber(total_size,0) %></td>
</tr>
</table>
</body>
</html>