Dim objWriter As New StreamWriter("c:\Look.txt")

objWriter.WriteLine("Hello World")

objWriter.Close()

Dim objReader As New StreamReader("c:\Look.txt")

Dim s As String

s = objReader.ReadLine

Do While Not s Is Nothing

MsgBox(s)

s = objReader.ReadLine

Loop

objReader.Close()

' Write To A File **********************************************************

Dim objFileStream As FileStream

Dim objStreamWriter As StreamWriter

objFileStream = New FileStream("C:\1.doc", FileMode.Create, FileAccess.Write)

objStreamWriter = New StreamWriter(objFileStream)

' Write line to output file

objStreamWriter.WriteLine("Hello")

objStreamWriter.WriteLine("World")

objStreamWriter.Close()

objFileStream.Close()

chkWriteAscii.Checked = True

MessageBox.Show("Ascii File Written", "Done", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

' **************************************************************************

' Read A File **************************************************************

Dim strLine As String

Dim objFileStream2 As FileStream

Dim objStreamReader2 As StreamReader

objFileStream2 = New FileStream("c:\1.doc", FileMode.Open, FileAccess.Read)

objStreamReader2 = New StreamReader(objFileStream2)

strLine = objStreamReader2.ReadLine()

While Not IsNothing(strLine)

MessageBox.Show(strLine)

strLine = objStreamReader2.ReadLine()

End While

objStreamReader2.Close()

objFileStream2.Close()

chkReadAscii.Checked = True

MessageBox.Show("Ascii File Read", "Done", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

' ****************************************************************************

'Binary Read And Write..... **************************************************

Dim fs As New FileStream("C:\1.doc", FileMode.Open, FileAccess.Read)

Dim MyData(fs.Length) As Byte

fs.Read(MyData, 0, fs.Length)

chkReadBlob.Checked = True

MessageBox.Show("BLOB File Read", "Done", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Dim fs2 As New FileStream("C:\2.doc", FileMode.Create, FileAccess.Write)

fs2.Write(MyData, 0, fs.Length)

fs2.Close()

fs.Close()

chkWriteBlob.Checked = True

MessageBox.Show("BLOB File Written", "Done", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

' ****************************************************************************