LogObj RückgabeWerte ?

[Don Pasquale]

Hi Folks,

ich habe folgende Funktion mit der Ich in eine Textdatei
mitlogge. Gibt es irgendeine Möglichkeit zu prüfen ob das geklappt hat ?
Ich finde keine Rückgabewerte der Klasse NotesLog.


Function clProtokoll ( Protokollname As String, Protokolltext As String ) As Integer
   
   Dim LogObj As NotesLog
   Set LogObj = New NotesLog(Protokollname)
   Call LogObj.OpenFileLog("c:\temp\XML.log")
   Print Protokolltext
   Call LogObj.LogAction( Protokolltext )
   Call LogObj.Close
   
End Function


Ciao
Don Pasquale

[Performance]

Rückgabe ob du was in die datei reingeschrieben hast ? .. hmm da gibt es nichts..... man geht davon aus das wenn keine Fehler bis dahin aufgetaucht sind auch keine entstehen werden beim schreiben.

Fü das Abfangen von vorherigen Fehlern kannst du ein
on error .... reinschreiben, speziell wenn du die Datei nicht erstellen kannst, das du in der errorroutine mit einem chdir übergehn kannst.

- wenn du unbedingt prüfen willst kannst du die Datei wieder einlesen und checken.


cu