hey por favor necesito ayuda, ya logre escribir en el txt, pero es q me esta sobreescribiendo cada vez y eso no me sirve, necesito q me vaya llenado el archivo, q no me reemplace lo q habia....este es el code q tengo..Gracias
Private Sub escribir()
Dim newFile As IO.File
Dim strStreamW As IO.Stream
Dim swText As IO.StreamWriter
Dim TextFile As String = ("C:\correo\contact.txt")
''strStreamW = File.Create(TextFile)
strStreamW = File.OpenWrite(TextFile)
swText = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)
swText.WriteLine("fecha: " + Me.fecha.Text)
swText.WriteLine("nombre: " + Me.txt_nombre.Text)
swText.WriteLine("empresa: " + Me.txt_empresa.Text)
swText.WriteLine("e-mail: " + Me.txt_email.Text)
swText.WriteLine("telefono: " + Me.txt_telef.Text)
swText.WriteLine("ciudad: " + Me.txt_ciudad.Text)
swText.WriteLine("asunto: " + Me.txt_asunto.Text)
swText.WriteLine("Comentario: " + Me.txt_coment.Text)
swText.WriteLine("******************************** ****************************")
swText.Close()
End Sub
