04/08/2002, 16:46
|
| | | Fecha de Ingreso: junio-2002 Ubicación: Buenos Aires, Argentina
Mensajes: 876
Antigüedad: 22 años, 11 meses Puntos: 0 | |
| Re: totalizar en bytes por tipo de extension.
Mira, no se si te va a servir, pero te paso un explorador de archivos basico para navegar por unidades de disco, que con pocas modificaciones conseguira lo que pedis:
DEFAULT.HTM
-----------
<HTML>
<HEAD><TITLE>Active Server Pages</TITLE></HEAD>
<FRAMESET ROWS="20%,*" BORDER=0>
<FRAME NAME=Unidades SRC="Unidades.asp">
<FRAME NAME=Contenido SRC="about:blank">
</FRAMESET>
</HTML>
UNIDADES.ASP
------------
<HTML>
<HEAD><TITLE>Active Server Pages</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF" TOPMARGIN=0>
<%
SET Conexion = Server.CreateObject ("Scripting.FileSystemObject")
SET Unidades = Conexion.Drives
Response.Write "<TABLE BORDER=0 ALIGN=CENTER CELLPADDING=5><TR>"
FOR Each Unidad IN Unidades
Response.Write "<TD><A HREF=Carpeta.asp?r=" & Server.URLEncode (Unidad.DriveLetter & ":\\") & " TARGET=Contenido>"
Response.Write Unidad.DriveLetter & "</A></TD>"
NEXT
Response.Write "</TABLE>"
%>
</BODY>
</HTML>
CARPETA.ASP
-----------
<HTML>
<HEAD><TITLE>Active Server Pages</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF" TOPMARGIN=0>
<%
SET Conexion = Server.CreateObject ("Scripting.FileSystemObject")
SET Ruta = Conexion.GetFolder (Request.QueryString ("r"))
SET Carpetas = Ruta.SubFolders
SET Ficheros = Ruta.Files
Response.Write Ruta & " - " & Carpetas.Count & " carpetas y " & Ficheros.Count & " archivos"
Response.Write "<TABLE BORDER=0 CELLPADDING=5 SIZE="98%">"
IF NOT Ruta.IsRootFolder THEN Response.Write "<TR><TD><A HREF=Carpeta.asp?r=" & Server.URLEncode (Ruta.ParentFolder) & ">..</A>"
FOR Each Carpeta IN Carpetas
Response.Write "<TR><TD><A HREF=Carpeta.asp?r=" & Server.URLEncode (Carpeta) & " TARGET=Contenido>"
Response.Write Carpeta.Name & "</A></TD></TR>"
NEXT
FOR Each Fichero IN Ficheros
Response.Write "<TR><TD>" & Fichero.Name & "</TD></TR>"
NEXT
Response.Write "</TABLE>"
%>
</BODY>
</HTML>
Fijate que donde dice Fichero.Name, Fichero.size te devolveria el tamaño. Modificalo a tu necesidad.
Saludos |