FlowFact - Entwicklungstools

zurück

Sub - DoLog


  Sub DoLog(ByVal strProcName As String, ByVal strMessageString As String)  
 




Public Sub DoLog(ByVal strProcName As String, ByVal strMessageString As String)
    Dim strFileName As String
    Dim strMsg As String
    Dim strPath As String
    Dim Util As Object

    On Error Resume Next

    Set Util = CreateObject("clacaStdC10.cUtil")


    strPath = LogPath
    If strPath = "" Or m_oFileSystem.FolderExists(strPath) = False Then
        strPath = Util.GetTempPath()
    End If
    Call Util.CutRight(strPath, "\")



    strFileName = strPath & "\ffDeveloper.log"
    strMsg = CStr(Now) & " - " & strProcName & " : " & strMessageString

    m_oFileSystem.AppendFile strFileName, strMsg
    If Err <> 0 Then
        Err.Clear
        m_oFileSystem.AppendFile strFileName, Left(strMsg, 300) & " ..."
    End If

End Sub