Read byte using FileStream : FileStream « Stream File « VB.Net Tutorial

1. VB.Net Tutorial
2. Stream File
3. FileStream

Imports System.IO
Imports System.Text

        
Public Class Tester
    Public Shared Sub Main
    
        Dim myFileStream As FileStream
        Dim intByte As Integer
        Dim lngLoop As Long = 0
        Dim bteRead() As Byte

        Try
            myFileStream = File.OpenRead("test.txt")
            ReDim bteRead(myFileStream.Length)

            Do While Not intByte = -1
                intByte = myFileStream.ReadByte()
                If intByte <> -1 Then bteRead(lngLoop) = CByte(intByte)
                lngLoop += 1
            Loop

            Console.WriteLine(Encoding.ASCII.GetString(bteRead))
            myFileStream.Close()

        Catch ex As IOException
            Console.WriteLine(ex.Message)
        End Try
    End Sub

End Class