sobreescrbir

[Cank.Inc]

Hola! de nuevo =P

estoy haciendo un programa, donde hay un text box, y al apretar el command button, te guarda el texto que hay en el.. use este codigo.:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim canalLibre As Integer
      canalLibre = FreeFile
      Open "C:\texbox.txt" For Output As #canalLibre
        Print #canalLibre, Text1
    Close #canalLibre
End Sub


entonces, cuando escribo algo en el textbox y oprimo, se guarda en C:/textbox.txt

ahora, cuando vuelvo a escrbir en el textbox, se borra lo que ay
en C:/textbox.txt

como puedo hacer cuando escriba no se borrre, lo que ya haya escrito, y siga guardando, con un salto de linea, en vez de sobreescribir.?

me explique? =P

[Slasher-K]

Abri el archivo en modo Append en lugar de Output, de esta forma escribe al final del archivo.

Saludos.

[Cank.Inc]

em, no funciono, sigue igual...
alguien mas?

te referias a esto:

Open "C:\texbox.txt" For Append As #canalLibre

[Xpeed]

asi debe funcionar, alli agrega al final de lo que estaba en el archivo lo que quieres meter



un saludo.