Archivos secuenciales

[null]

Quiero realizar un programa que me permita guardar " Anotaciones " y despues mostrarlas en un text a todas juntas... :

Private Sub CMDingresar_Click()
Open "C:\Retrieve.dll" For Output As #1
Print #1, TXTingreso.Text
Close #1
End Sub

Private Sub CMDmostrar_Click()
Open "C:\Retrieve.dll" For Input As #1
Input #1, anotaciones
TXTmostrar.Text = anotaciones
Close #1
End Sub

Mi problema es que cuando las guarda, me borra las anteriores y asi sucesivamente ... y mi idea es que aparezcan todas las anteriormente guardadas!
Estaria muy agradecido si me consiguen la respuesta!, me canse de buscarla

[Avellaneda]

Iniciado por null

Quiero realizar un programa que me permita guardar " Anotaciones " y despues mostrarlas en un text a todas juntas... :

Private Sub CMDingresar_Click()
Open "C:\Retrieve.dll" For Output As #1
Print #1, TXTingreso.Text
Close #1
End Sub

Private Sub CMDmostrar_Click()
Open "C:\Retrieve.dll" For Input As #1
Input #1, anotaciones
TXTmostrar.Text = anotaciones
Close #1
End Sub

Mi problema es que cuando las guarda, me borra las anteriores y asi sucesivamente ... y mi idea es que aparezcan todas las anteriormente guardadas!
Estaria muy agradecido si me consiguen la respuesta!, me canse de buscarla

Sólo tienes que abrir el archivo en modo Append:

Open "C:\Retrieve.dll" For Append As #1

[David]

Además de la buena respuesta que te dió Avellaneda , quería comentarte que en tu código sólo estarás leyendo la primera línea del archivo, si quieres leer todas las líneas debes hacer un bucle.

P.S.: No necesitas citar el mensaje anterior Avellaneda, principalmente cuando es un poco largo .

[null]

y Como colocaria el bucle ?
perdonen mi ignorancia ...
x(

[David]

El tema ya ha sido tratado varias veces, básicamente es algo así:

Código vb:

Do While Not EOF(1)
    Line Input #1, Linea
    MsgBox Linea
Loop
 

Con eso a cada paso del bucle obtendrás en la variable Linea la siguiente línea del archivo.

[null]

Muchas gracias David !