Ver Mensaje Individual
  #5 (permalink)  
Antiguo 26/05/2005, 09:26
Avatar de Cap.Buscapina
Cap.Buscapina
 
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
.