Public Class Log
    Dim mLogFileOK As String
    Dim mLogfileNOK As String

    Dim mLogFileDebug As String
    Dim mdebugmode As Boolean

    Public Enum Logtype As Integer
        OK = 1
        NOK = 2
        Debug = 3
    End Enum

    Sub New(ByVal LogFileOK As String, ByVal logfilenok As String, ByVal logfiledebug As String, ByVal debugmode As Boolean)
        mLogFileOK = LogFileOK
        mLogfileNOK = logfilenok
        mLogFileDebug = logfiledebug
        mdebugmode = debugmode
    End Sub

    Public Sub set_file_names(ByVal LogFileOK As String, ByVal logfilenok As String)
        mLogFileOK = LogFileOK
        mLogfileNOK = logfilenok
    End Sub

    Public Sub Writelog(ByVal logtype As Logtype, ByVal Inhalt As String)
        Select Case logtype
            Case Log.Logtype.OK
                FileOpen(99, mLogFileOK, OpenMode.Append)
            Case Log.Logtype.NOK
                FileOpen(99, mLogfileNOK, OpenMode.Append)
            Case Log.Logtype.Debug
                FileOpen(99, mLogFileDebug, OpenMode.Append)
        End Select
        If logtype = Log.Logtype.Debug And mdebugmode = True Then
            WriteLine(99, Now.ToString + Chr(9) + Inhalt)
        Else
            If logtype = Log.Logtype.OK Or logtype = Log.Logtype.NOK Then WriteLine(99, Now.ToString + Chr(9) + Inhalt)
        End If
        FileClose(99)
    End Sub

End Class