GeorgeT
October 23rd, 2002, 11:57 PM
I need help with saving value from text box to a file using SaveFileDialog. Here is my code, what am I doing wrong?
Thanks
Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
saveFileDialog1.AddExtension = True
saveFileDialog1.OverwritePrompt = True
saveFileDialog1.DefaultExt = ".txt"
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
If myStream.CanRead And myStream.CanWrite Then
Console.Write(TextBox1.Text)
End If
myStream.Close()
End If
End If
Thanks
Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
saveFileDialog1.AddExtension = True
saveFileDialog1.OverwritePrompt = True
saveFileDialog1.DefaultExt = ".txt"
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
If myStream.CanRead And myStream.CanWrite Then
Console.Write(TextBox1.Text)
End If
myStream.Close()
End If
End If