carlos
22 de Marzo del 2004

Reslta, que creo un archivo de texto, y que escribo en el unos datos, como hago para volver a escribir en el, sin borrar los datos que ya tengo, es decir escribirlos a continuacion.

naveguito
22 de Marzo del 2004

en lugar de Output pon Append,

naveguito
22 de Marzo del 2004

Te pongo un ejemplo:

Private Sub Escribir()
Dim Cadena As String

If Dir(App.Path & "RutaGar.ini") = "" Then 'si no existe lo escribimos
Open App.Path & "RutaGar.ini" For Output As #1
Cadena = Text1.Text & vbcrlf
Print #1, Cadena
Close #1
Else
Open App.Path & "RutaGar.ini" For Append As #1
Cadena = Text1.Text & vbcrlf
Print #1, Cadena
Close #1
End If
End Sub

carlos
22 de Marzo del 2004

Gracias por las ideas, no sabia yo eso del append.
Gracias.