FredixBlog


Just my log about anything I could find enjoyable.



Message to log file

author Posted by: fredometro on date Jan 1st, 2004 | filed Filed under: MS-Access

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