Mirar si supera el Fichero un tamaño

[Cap.Buscapina]

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.