Imprimir Página - Alguien Sabe Como... U.U!

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:

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 :$?

SOLUCIONADO

SOLUCION :

CODIGO ORIGINAL :

Código:

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:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Petro_Boca en 2 Agosto 2010, 00:34 am