Clipper/FiveWin - ARCHIVO TXT

HOLA!

con este progrma genero archivos txt:

use archivo
htxt=fopen("archivo.txt")

do while !eof()
fwrite(htxt,campo1+campo2+campo3+chr(13)+chr(10))
skip
enddo
fclose(htxt)

Ahora, yo quiero seguir agregando registros al archivo txt, como se hace para continuar sin que se borren los anteriores????

Saludos.
Marcelo

HOLA!

PARA SEGUIR AGREGANDO TENES QUE VOLVER ABRIR DE MODO LECTURA Y ESCRITURA
Y LUEGO SEGUIR ESCRIBIENDO REGISTROS COMO LOS HACIAS DENTRO DEL WHILE

htxt=fopen("archivo.Txt",FO_READWRITE)

Falta un pequeño detalle.

Despues de abrir el fichero hay que situarse al final del fichero.

#include "Fileio.ch"

htxt=FOPEN("archivo.Txt",FO_READWRITE)
FSEEK(htxt,0,FS_END)

Por que de lo contrario sobreescribira los registros grabados anrteriormente.

GRACIAS A LOS DOS!!
FUNCIONO PERFECTO.

saludos.
Marcelo