Logfil

lav en komma sepereret text-fil...

time, error number, description

det vil sige, indholdet af filen ville være:

08-05-2002 18:34, 14, "Fejl i rutine"

ehh.. nej, jeg vil faktisk helst have det som det her. jeg ved godt hvad jeg vil have, jeg ved bare ikke hvordan jeg optimalt skriver hurtigst til filen.
Jeg søger nogle kodeforslag. Skal jeg beholde filen åben og løbende skrive til den? Skal jeg åbne,lukke den hver gang, er der en kommando til bare at lave et output til en fil, eller hvordan?

vil lige gøre opmærksom på at det ikke er en fejllog, jeg skriver alt hvad jeg laver til den..

Jeg vil mene at Open er den bedste metode, og medmindre du skriver mange linier hurtigt, så ville jeg lukke den hver gang.

Open "dintekstfil-med-sti" for Append As #1
    print #1 "hvad der skal skrives"
close #1

Hov -glemte et komma : Print #1, "hvad der skal skrives"

Enig.

Prøv denne test.


Private Sub Command1_Click()
On Error GoTo ErrorHandler
'----------- Din Kode -----------

Set pic = LoadPicture("?") 'Error test


'----------- Din Kode -----------
Exit Sub
ErrorHandler:
Call AddError
'eller
'Call AddError("din tekst")
End Sub

Public Sub AddError(Optional strText As String)
If strText <> "" Then strText = " - [" & strText & "]"
  Open App.Path & "\errorlog.txt" For Append As #1
    Print #1, CStr(Now & " - #" & Err.Number & " - " & Err.Description & strText)
  Close #1
End Sub