Tjekke om der er fejl i txt log

obs glemte lige vil gerne have læst de 3 linier ind i et array

det er ikke helt simpelt men prøv og brug nedenstående metode:

    Public Shared Function ReadLastNLines(ByVal fnm As String, ByVal nolin As Integer) As String()
        Dim fs As FileStream = New FileStream(fnm, FileMode.Open, FileAccess.Read)
        Dim l As Long = fs.Length
        Dim n As Integer = 3000
        Dim ix As Long = l - n
        If ix < 0 Then
            n = n + CType(ix, Integer)
            ix = 0
        End If
        fs.Seek(ix, SeekOrigin.Begin)
        Dim b(n-1) As Byte
        fs.Read(b, 0, n)
        fs.Close
        Dim nl As Integer = n
        Dim i As Integer
        For i = 0 To nolin-1
            nl = nl - 2
            While nl >= 0 AndAlso Not (b(nl) = 10)
                nl = nl - 1
            End While
            nl = nl + 1
        Next
        Dim sr As StreamReader = New StreamReader(New MemoryStream(b, nl, n - nl), Encoding.Default)
        Dim res(nolin-1) As String
        For i = 0 To nolin-1
            res(i) = sr.ReadLine
        Next
        sr.Close
        Return res
    End Function

har været rimelig travl, men jeg vil teste det her i dag , så får du lige noget respons

har du fået det til at virke ?

et svar såfremt ja