Shaky
code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsave.Click
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("c:\intel\zz.txt", True)
file.WriteLine("Here is the first string." & RichTextBox1.Text)
file.Close()
End Sub
Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonload.Click
Dim fileReader As System.IO.StreamReader
fileReader = My.Computer.FileSystem.OpenTextFileReader("C:\intel\zz.txt")
Dim stringReader As String
stringReader = fileReader.ReadLine
Do While fileReader.Peek() >= 0
Console.WriteLine(fileReader.ReadLine())
RichTextBox1.Text = fileReader.ReadToEnd
Loop
End Sub
/code

New Topic/Question
Reply




MultiQuote



|