B4J Question Get log output

    Dim Reader As TextReader
    Reader.Initialize(File.OpenInput(File.DirApp, "logs.txt"))
    textarea.SetText(Reader.ReadAll)

Sub ShowServerLog
    ' Server Log
    ServerLogNumberOfLines.SetVal(ShowServerLogLines)
    If File.Exists(File.DirApp & Main.DirectorySeparator & "logs", "logs.txt") = True Then
        Dim sb As StringBuilder : sb.initialize
        Dim List1 As List = File.ReadList(File.DirApp & Main.DirectorySeparator & "logs", "logs.txt")
        If List1.Size-1 > = ShowServerLogLines Then
            Dim start As Int = List1.Size - 1 - ShowServerLogLines
        Else
            Dim start As Int = 0
        End If
        Dim finish As Int = List1.Size - 1
        For i = start To finish
            sb.Append(List1.Get(i) & "</br>")
        Next
        ServerLog.SetHTML(sb.ToString)
    End If
End Sub

Sub RedirectOutputToFile (Dir As String, FileName As String)
    #if RELEASE
        Dim out As OutputStream = File.OpenOutput(Dir, FileName, True) 'Set to True to append the logs
        Dim ps As JavaObject
        ps.InitializeNewInstance("java.io.PrintStream", Array(out, True, "utf8"))
        Dim jo As JavaObject
        jo.InitializeStatic("java.lang.System")
        jo.RunMethod("setOut", Array(ps))
        jo.RunMethod("setErr", Array(ps))
    #end if
End Sub

    If File.Exists(File.DirApp, "logs.txt") = True Then
        Log(File.Size(File.DirApp,"logs.txt"))
        If File.Size(File.DirApp,"logs.txt")>610 Then
            Dim List1 As List = File.ReadList(File.DirApp, "logs.txt")
            If List1.Size-1 > = ShowServerLogLines Then
                Dim start As Int = List1.Size - 1 - ShowServerLogLines
            Else
                Dim start As Int = 0
            End If
            Dim finish As Int = List1.Size - 1
            Dim newList As List
            Log(List1)
            newList.Initialize
            For i = start To finish
                newList.Add(List1.Get(i))
            Next
            File.WriteList(File.DirApp, "logs.txt",newList)
        End If
    End If