Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: VanX en 20 Agosto 2011, 23:40 pm



Título: Ver cuanto pesa un archivo desde VB6 ???
Publicado por: VanX en 20 Agosto 2011, 23:40 pm
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 ;)


Título: Re: Ver cuanto pesa un archivo desde VB6 ???
Publicado por: ignorantev1.1 en 21 Agosto 2011, 00:12 am
Esta es una forma

Código
  1. dim peso as long, ff as long
  2. dim archivo as string
  3.  
  4. Archivo="C:\CualquierArchivo.X"
  5. ff=freefile
  6. open Archivo for binary as ff
  7. peso=lof(ff)
  8. close ff
  9.  
  10. debug.print peso
  11.  




Título: Re: Ver cuanto pesa un archivo desde VB6 ???
Publicado por: VanX en 21 Agosto 2011, 01:26 am
muchas gracias, me lo voy a mirar ;)

saludos


Título: Re: Ver cuanto pesa un archivo desde VB6 ???
Publicado por: someRandomCode en 21 Agosto 2011, 01:46 am
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!


Título: Re: Ver cuanto pesa un archivo desde VB6 ???
Publicado por: VanX en 21 Agosto 2011, 03:47 am
gracias voy a ver  :D