calculo del peso de ficheros

[SandraLl]

Hola!

Mi problema es el siguiente.
Tengo una pagina donde le muestro a los clientes un listado de todas sus facturas. Ellos pueden seleccionar una o varias facturas y le envio por email los pdf correspondientes a las facturas seleccionadas.
Mi problema es q dependiendo del peso de los ficheros seleccionados puede que haya problemas a la hora de enviar el email o de q el cliente lo reciba, q ya igual el tamaño de las ficheros es demasiado grande y el gestor de correo no deja enviarlo o recibirlo.
Por lo tanto lo que quiero es q cuando un cliente seleccione ficheros q pesan mucho poder avisarle de que puede haber problemas con el envio.
Pero para eso necesito calcular el tamaño de los ficheros que el cliente ha seleccionado, pero no tengo ni idea de como hacer esto.

Podeis ayudarme? cualquier cosa q me digais me sera de ayuda ya que no tengo ni idea de como hacerlo. Lo tendria q hacer en la dll o se pude en la misma asp? Hay algun componente o algo q lo haga?

Trabajo con asp, base de datos sql y dll de visual 6.0

Muchas gracias!

[jissuka]

Para ello si no me equivoco, necesitaras subir el fichero al servidor, para poder calcular su tamaño, una opción es XelUpload, tiene una propiedad en la que te indica el tamaño del fichero.

[3pies]

Con file system object, puedes obtener el peso de cualquier archivo.

[SandraLl]

con filesystemobject?

pues eos me vendria muy bien xq precisamente con filesystemobject los copio de una carpeta a otra, asi q a la vez q los voy copiando podria ir acumulando el tamaño de todo lo q copio.

Peor he estado mirando todas las funciones q tiene FSO y no se cual es la que me da el tamaño. Sabrias decirme?
Si no investido ya por ahi que hace cada una de ellas hasta q de con la q necesito...

Muchisimas gracias

[SandraLl]

Iniciado por 3pies

Con file system object, puedes obtener el peso de cualquier archivo.

He probado esto pero no funciona:

Fichero = oFS.GetFile(sFI)
tam = Fichero.Size

OFS el filesystemobject y en SFI tengo la ruta del fichero
cuando hago Fichero. no me sale ningun metodo ni nada y al ejecutarlo me da error en la segunda sentencia

[3pies]

Prueba esto en un fichero que llames por ejemplo probatina.asp

Código:

<TABLE>
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath("."))
Set ArchivosDelDirectorio = Carpeta.Files
NumeroDeArchivos = 0
PesoArchivos = 0
For Each Archivo in ArchivosDelDirectorio
Archivos = Archivo.name
Peso = Archivo.Size
modificado = FormatDateTime(Archivo.DateLastModified,vbshortdate)
%>
<TR><TD>
<%Response.Write Archivos%>
</TD>
<TD>
Tama&ntilde;o: <%Response.Write FormatNumber(Peso/1024,2) & " KB"%>
</TD>
<TD ALIGN="RIGHT">
Modificado el: <%Response.Write modificado%>
</TD></TR>
<%
NumeroDeArchivos= NumeroDeArchivos + 1
PesoArchivos = PesoArchivos + Peso
Next
 
Set FSO = nothing
Set Carpeta = nothing
Set ArchivosDelDirectorio = nothing
%>
</TABLE>
<%
Response.write "N&uacute;mero de archivos: " & NumeroDeArchivos & "<BR>"
Response.write "Peso total: " & PesoArchivos
%>

Salu2

[El_Metallick]

aqui hay otra forma... a mi me gusta bastante.... http://www.forosdelweb.com/showpost....5&postcount=31
saludos