generar archivo de texto

[seques]

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