![]() |
FlowFact - Entwicklungstools |
![]() |
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 |