Programación General > Visual Basic 6.0 e inferiores

 Como Limitar El Tamaño De Un Archivo

(1/1)

karen81:
:o En el desarrollo de mi proyecto me pidieron que se puedieran abrir archivos .txt para manipularlos, lo cual ya hice con la ayuda de este foro :comp: , mi pregunta ahora es: si hay alguna manera de limitar el tamaño del archivo a abrir es decir que si se pasa de mas de 4K(por ejemplo) mandara un mensaje  :unsure:  

¿se puede hacer esto? ¿como?


cualquier ayuda sera bienvenida Gracias :comp:

jc_moty:
Bueno, para conocer el tamaño de un archivo lo haces con la funcion FileLen.
Sintaxis:
FileLen(ruta del archivo)
La funcion devuelve el tamaño del archivo(en bytes).
Para tu caso seria algo asi:

--- Código: Text --- Dim tama As Longtama = FileLen("C:\archivo.txt")If tama > 4096 Then    MsgBox "Archivo muy Grande"Else   ' tus sentencias para abrir el archivoEnd If  Espero te sirva
Saludos

karen81:
:) gracias jc_moty por tu tiempo pero no entendi esta parte ¿como poner la ruta del archivo, si la ruta puede ser cualquiera?
--- Citar ---FileLen(ruta del archivo)
--- Fin de la cita ---
, pero gracias de todas formas lo que hice fue que al abrir el archivo con la propiedad "Len" veo su longitud y si se pasa de 4096 entonces quiere decir que es mayor a 4 KBytes y manda el mensaje :comp: y si no entonces lo trabajaba.
pero igual Gracias de todas formas  :hola: adios


¡Feliz año 2006 a todos!

jc_moty:

--- Citar ---¿como poner la ruta del archivo, si la ruta puede ser cualquiera?
--- Fin de la cita ---
Bueno, si abris el archivo con un Commondialog, este devuelve la ruta del archivo a abrir atraves de la propiedad FileName... osea que podrias hacer algo asi

--- Código: Text --- tama = FileLen(CommonDialog1.FileName)  Saludos :suerte:

Navegación

[0] Índice de Mensajes