Tuesday, December 14, 2004

Random Acces Files & File Size

 
Bueno en un archivo de acceso aleatorio, supongamos que quieres escribir siempre despues de el ultimo registro, esto es muy facil y se hace asi:

Dim total As Integer
Dim maximo As tipo_de_dato ' este es el dato que vamos a insertar, puede ser primitvo o 'personaliza
Dim intArchivo As Integer
maximo = "" 'cualquie cosa dependiendo del tipo de dato
intArchivo = FreeFile
Open "c:\aleatorio.dat" For Random As #intArchivo Len = Len(maximo)
total = (LOF(intArchivo) / Len(maximo))+1 ' LOF nos da el tamaño del archivo, se sumamos 1 'para que sea siempre al final
put #intarchivo , total, maximo 'aqui escribimos en el archivo

Next Close #intArchivo