Autor Tema: Como Limitar El Tamaño De Un Archivo (Leído 1613 veces)

karen81 · « **en:** Lunes 26 de Diciembre de 2005, 01:00 »

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

, 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

¿se puede hacer esto? ¿como?

cualquier ayuda sera bienvenida Gracias

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 Long
tama = FileLen(&#34;C:&#092;archivo.txt&#34;)
If tama &#62; 4096 Then 
   MsgBox &#34;Archivo muy Grande&#34;
Else
   ' tus sentencias para abrir el archivo
End If
 
 

Espero te sirva
Saludos

karen81 · « **Respuesta #2 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

y si no entonces lo trabajaba.
pero igual Gracias de todas formas

adios

¡Feliz año 2006 a todos!

jc_moty

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

 
tama = FileLen(CommonDialog1.FileName)

Saludos

SoloCodigo

Autor Tema: Como Limitar El Tamaño De Un Archivo (Leído 1613 veces)

karen81

Como Limitar El Tamaño De Un Archivo

jc_moty

Re: Como Limitar El Tamaño De Un Archivo

karen81

Re: Como Limitar El Tamaño De Un Archivo

jc_moty

Re: Como Limitar El Tamaño De Un Archivo