openaccess/source/modules/VCS_Log.bas

Option Compare Database
Dim log_file_path As String

Public Function log_file()
    log_file = log_file_path
End Function

Public Sub logger(origin As String, level As String, msg As String)
    Dim fso As Object
    Dim oFile As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    If Not Len(log_file_path) > 0 Then
    
        log_file_path = CurrentProject.path & "\" & "logVCS_" & Format(Now, "yymmdd_hhMMss") & ".log"
        
        Debug.Print log_file_path
        If Not fso.FileExists(log_file_path) Then
            Set oFile = fso.CreateTextFile(log_file_path)
            oFile.Close
        End If
        
    End If

    Set oFile = fso.OpenTextFile(log_file_path, ForAppending)

    'oFile.WriteBlankLines (2)
    oFile.WriteLine (CStr(Now) + " - " + origin + " - " + level + " - " + msg)
    
    oFile.Close
    Set fso = Nothing
    Set oFile = Nothing
End Sub