Bien lo q necesito es guardar los datos ingresados, pero es q cada vez q lo hago me sobreescribe el archivo (reemplaza lo q habia, es un .txt). Esto es lo q hago:
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.Write("************************************ ************************")
swText.Close()
End Sub
////////////////////
intente cambiar strStreamW = File.OpenWrite(TextFile) por strStreamW = File.AppendText(TextFile) pero me saca error
