Login

[Jblues]

the strearwriter has to be declared as new in some versions
try this.

Dim sfds As New SaveFileDialog
sfds.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
sfds.ShowDialog()

Dim objStreamWriter As New System.IO.StreamWriter(sfds.FileName)

objStreamWriter = System.IO.File.AppendText _
("file") ' this is where you put the name of the file.

objStreamWriter.WriteLine _
(RichTextBox1.Text & vbNewLine & RichTextBox2.Text)

objStreamWriter.Close()

[Darren]

jblues
No errors and the text file is created but nothing inside the file Regards

[Jblues]

What is the name and location of the text file.

[Darren]

jblues,
The file is called discop saved to Desktop

[Jblues]

delete the old codek, replace with this.
I am not sure if this is what you want to do, but it will work

Dim objStreamWriter As System.IO.StreamWriter

objStreamWriter = System.IO.File.AppendText _
("C:\Users\Admin\desktop\discop.txt") ' you will have to change the path

objStreamWriter.WriteLine _
(RichTextBox1.Text & vbNewLine & RichTextBox2.Text)

objStreamWriter.Close()


End Sub

[Darren]

Fantastic Thank you so much I really appreciate what you have done Brilliant Regards