Alguien Sabe Como... U.U!

[Petro_Boca]

Hola!

yo estoy haciendo un programa, q uno escribe algo en text1 ,  y se guarda en C:\ejemplo.TXT

y uso este codigo (ahi una invariable + la variable del text)

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub


lo q hace eso, es guardar en C:\ejemplo.txt la invariable + text1(contenido)..

pero!

por ejemplo... agarro y escribo en el text "PRUEBA"

queda asi en el EJEMPLO.TXT:

INVARIABLE PRUEBA

y entonces yo al txt quiero agregar otra linea (invariable otra          , asi quedaria), pero SE REEMPLAZA LO QUE DICE "PRUEBA" Y SE PONE "OTRA"


en definitiva ^^,.. se reemplaza la primera linea, pero lo q yo necesito es q se agrege, no q se reemplace...

como hago :$?

[Petro_Boca]

SOLUCIONADO

SOLUCION :

CODIGO ORIGINAL  :

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub

SOLUCION :

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Append As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub

osea, reemplazar OUTPUT POR APPEND