FredixBlog

This one prints a line to a log file.

Global Const LogFileName = "c:\\anyfolder\\log\\logfile.log"

Public Sub LogMessage(TheMessage)
Dim fnum As Integer
    fnum = FreeFile
    Open LogFileName For Append As fnum
    Print #fnum, Format(Now(), "dd:mm:yy HH:MM") & " " & TheMessage
    Close fnum
End Sub

No related posts.