| |||
si te sirve esto funciona, solo q sobreescribe el archivo 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 |