calculo del peso de ficheros

[3pies]

Prueba esto en un fichero que llames por ejemplo probatina.asp

Código:

<TABLE>
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath("."))
Set ArchivosDelDirectorio = Carpeta.Files
NumeroDeArchivos = 0
PesoArchivos = 0
For Each Archivo in ArchivosDelDirectorio
Archivos = Archivo.name
Peso = Archivo.Size
modificado = FormatDateTime(Archivo.DateLastModified,vbshortdate)
%>
<TR><TD>
<%Response.Write Archivos%>
</TD>
<TD>
Tama&ntilde;o: <%Response.Write FormatNumber(Peso/1024,2) & " KB"%>
</TD>
<TD ALIGN="RIGHT">
Modificado el: <%Response.Write modificado%>
</TD></TR>
<%
NumeroDeArchivos= NumeroDeArchivos + 1
PesoArchivos = PesoArchivos + Peso
Next
 
Set FSO = nothing
Set Carpeta = nothing
Set ArchivosDelDirectorio = nothing
%>
</TABLE>
<%
Response.write "N&uacute;mero de archivos: " & NumeroDeArchivos & "<BR>"
Response.write "Peso total: " & PesoArchivos
%>

Salu2