You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
530 B
17 lines
530 B
Public Class clslog
|
|
|
|
Public errormailtext As String = ""
|
|
Public Sub Writelog(ByVal Inhalt As String)
|
|
FileOpen(99, My.Settings.Log, OpenMode.Append)
|
|
WriteLine(99, Now.ToString("s") + Chr(9) + Inhalt)
|
|
FileClose(99)
|
|
|
|
If Inhalt.IndexOf("Fehler") > -1 Then
|
|
errormailtext = errormailtext + " / " + Inhalt
|
|
End If
|
|
If Inhalt.IndexOf("Attribute") > -1 Then
|
|
errormailtext = errormailtext + " / " + Inhalt
|
|
End If
|
|
End Sub
|
|
End Class
|