Escribir archivo txt en VB

[Flashera]

Estoy probando un código que permita guardar en un archivo de texto (txt) varias direcciones de e-mail, pero cuando guardo cada dirección las otras se borran. Lo que quiero hacer es que las anteriores se conserven y a medida que se agrega un e-mail se vaya acumulando de bajo de las anteriores existentes en el archivo.
¿Me ayudan?
Saludos.

[Untergang]

No se... supongo que estas usando:

CreateTextFile("c:\testfile.txt", True) ó OpenTextFile("c:\test.txt", ForWriting)

en vez de:

OpenTextFile("c:\test.txt", ForAppending) ????

[Flashera]

La verdad que ninguno de los dos...
Igualmente me gustaría tener un código ya echito para copiar y pegar .
Espero que me ayuden.

[Flashera]

Todavia no ahn entendido mi pregunta..., necesito que un archivo de texto no se sobre-escriba, sino que la nueva información se almacene con la nueva sin borrar la información vieja.

[v_basic_f]

Hola, yo uso un código así..., lo conseguí acá en foros del web:

Dim cadena As String
Dim fichero As String
cadena = "Dirección de correo electrónico: " & direcciones.text
'donde dice direcciones.text, debes poner el nombre del campo donde están las direcciones
fichero = "C:\direcciones.txt"
'donde dice direcciones.txt debes poner el nombre de el archivo dónde estarán guardadas las direcciones.
Open fichero For Append Access Write As #1
Print #1, cadena
Close #1

Espero que te sirva
Facundo Cosimo

[albertovicat]

A la antigua es así:

Open "TuArchivo.txt" For Append As #1
Print #1, "La dirección nueva"
Close #1

Solamente cuando lo creas por primera vez o cuando querés borrarlo tenés que abrirlo "For Output" en vez de "For Append"
Saludos

[Flashera]

Gracias, funcionó de pelo!!!