
26/05/2005, 09:26
|
 | | | Fecha de Ingreso: octubre-2004 Ubicación: Argentina
Mensajes: 836
Antigüedad: 20 años, 8 meses Puntos: 4 | |
yo lo utilizo para leer todo el contenido de una determinada carpeta
ej
dirname= "archivos"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(dirname))
Set filez = folder.Files
For Each listing in filez
kb = formatnumber((listing.size / 1024),2,-1,0)
Title = left(listing.name,TotalChars - 4)
response.write title & "(" & kb & ")"
next
con eso verificas todos los archivos que tengas en la carpeta "archivos" e imprimes el nombre sin extencion(title) y el tamaño en kb (kb)
Hasta el momento no tuve que definir cuanto pesa un archivo en especil, pero modificandolo un poco, se podría hacer.
__________________ by Capitán Buscapina
. |