onsdag, marts 03, 2010

Hold det simpel og lav en tekst log

Jeg har brugt fremgangsmåden hvor jeg har lavet en klasse til at skrive log.

Public Class My_SysLog
Public Shared Sub WriteToLog(ByVal pLogFile As String, _
ByVal pLogText As String, _
Optional ByVal pCurDate As Boolean = False, _
Optional ByVal pAlertByMail As Boolean = False)

Dim vMessage As String = ""
If pCurDate Then
vMessage = Date.Now.ToString + ": "
End If
vMessage += pLogText
My.Computer.FileSystem.WriteAllText(pLogFile, vMessage, True)

End Sub
End Class

Klassen kaldes med en sti og en tekst... Og evt. en anden dato end dags dato... Og så kunne man tilføre noget alert by email funktion - dog ikke lavet i det ovenstående.

På denne her måde kan det hjælpe til at styre fejl beskeder.

Hvis man ligger tekst filen under websites folder struktur så vil det ikke kræve særlig mange ekstra rettigheder til "den der afvikler coden", altså i windows secrurity forstand.

Man kan evt. lave simple fejlbeskeder og tilføre evt. exception messages når man kalder klassen.

Ingen kommentarer: