' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.IO Imports System.Threading Namespace E Public Class TailSniff Private filename As String Private pos As Long Public Sub New(ByVal filename As String) Me.filename = filename pos = 0 End Sub Public Function Read() As StreamReader Dim fs As FileStream = New FileStream(filename, FileMode.Open, FileAccess.Read) Dim len As Long = fs.Length fs.Seek(pos, SeekOrigin.Begin) Dim b(len - pos) As Byte fs.Read(b, 0, b.Length) fs.Close pos = len Return New StreamReader(New MemoryStream(b)) End Function End Class Public Class MainClass Public Shared Sub Main(ByVal args As String()) Dim ts As TailSniff = New TailSniff("C:\z.z") While True Dim sr As StreamReader = ts.Read While sr.Peek > 0 Dim line As String = sr.ReadLine Console.WriteLine(line) End While sr.Close Thread.Sleep(10) End While End Sub End Class End Namespace