SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: karen81 en Lunes 26 de Diciembre de 2005, 01:00

Título: Como Limitar El Tamaño De Un Archivo
Publicado por: karen81 en Lunes 26 de Diciembre de 2005, 01:00
: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:
Título: Re: Como Limitar El Tamaño De Un Archivo
Publicado por: jc_moty en Miércoles 28 de Diciembre de 2005, 00:38
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
  1.  
  2. Dim tama As Long
  3. tama = FileLen("C:\archivo.txt")
  4. If tama > 4096 Then
  5.    MsgBox "Archivo muy Grande"
  6. Else
  7.    ' tus sentencias para abrir el archivo
  8. End If
  9.  
  10.  
Espero te sirva
Saludos
Título: Re: Como Limitar El Tamaño De Un Archivo
Publicado por: karen81 en Jueves 5 de Enero de 2006, 00:26
:) 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)
, 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!
Título: Re: Como Limitar El Tamaño De Un Archivo
Publicado por: jc_moty en Sábado 7 de Enero de 2006, 05:40
Citar
¿como poner la ruta del archivo, si la ruta puede ser cualquiera?
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
  1.  
  2. tama = FileLen(CommonDialog1.FileName)
  3.  
  4.  
Saludos :suerte: