Ver cuanto pesa un archivo desde VB6 ???

[VanX]

Hola a todos, tuve una idea sobre un programa que para mi puede ser muy interesante, pero me encuentro con la duda de que si se puede ver cuanto pesa un archivo.

He estado mirando como se manejan los archivos en vb6 pero no encontré la manera...

gracias y espero que me puedan responder

[ignorantev1.1]

Esta es una forma

Código (vb) [Seleccionar] Expandir

dim peso as long, ff as long
dim archivo as string

Archivo="C:\CualquierArchivo.X"
ff=freefile
open Archivo for binary as ff
peso=lof(ff)
close ff

debug.print peso


[VanX]

muchas gracias, me lo voy a mirar

saludos

[someRandomCode]

Tambien podrias usar la API de Windows con la funcion GetFileSize.
Te dejo el enlace a la documentacion de la funcion:
http://msdn.microsoft.com/en-us/library/aa364955%28v=vs.85%29.aspx
O, podrias usar algo mas facil, FileLen.
Como parametro, lleva un String que de la ruta completa del archivo.

Saludos!

[VanX]

gracias voy a ver