Imports System.IO
Imports System.Text
Imports System.Threading
Public Class Tester
Public Shared Sub Main
Dim readThread As Thread
readThread = New Thread(AddressOf ReadFile)
readThread.Start()
End Sub
Private Shared Sub ReadFile()
Dim myFileStream As FileStream
Dim intByte As Integer
Dim bteRead(128) As Byte
Dim intloop As Integer = 0
Try
myFileStream = New FileStream("test.txt", FileMode.OpenOrCreate, FileAccess.Read)
Do
intByte = myFileStream.Read(bteRead, 0, 128)
Console.WriteLine(Encoding.ASCII.GetString(bteRead))
Thread.Sleep(500)
intloop += 1
Loop While Not (intByte = 0 Or intByte < 128)
myFileStream.Close()
Catch ex As IOException
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
|