totalizar en bytes por tipo de extension.

carlunchos · #1 (**permalink**) 03/08/2002, 18:18

Sres. Foreros: estoy necesitando lo siguiente:
necesito que me orienten en lograr un codificado que lea la unidad que corresponda a la lectora de CD, que muestre los archivos que contenga el CD y que me permita realizar el total en bytes o MB de cada extension existente, es decir el total en bytes de los .INF, el total de los .xxx, etc.
Alguien me puede tirar una soga?.
Gracias.

zeus_bsas · #2 (**permalink**) 04/08/2002, 16:46

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

carlunchos · #3 (**permalink**) 04/08/2002, 17:56

Gracias Zeus, lo pruebo y luego te comento.
Gracias.