Option Explicit On Imports System.IO Private SReader As System.IO.StreamReader Private SWriter As System.IO.StreamWriter Private TxtValue As String

Private Sub CmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdRead.Click Try SReader = New System.IO.StreamReader("C:\Test.txt") TxtValue = SReader.ReadToEnd() SReader.Close() TextBox1.Text = TxtValue.ToString() Catch err As IOException MessageBox.Show(err.Message, "Error", MessageBoxButtons.OK) End Try End Sub Private Sub CmdWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdWrite.Click Try SWriter = New System.IO.StreamWriter("C:\Test.txt") SWriter.Write(TextBox1.Text) SWriter.Close() TextBox1.ResetText() MessageBox.Show("Write Successfully", "System.IO", MessageBoxButtons.OK) Catch err As IOException MessageBox.Show(err.Message, "Error", MessageBoxButtons.OK) End Try End Sub