VB写日志类

最新推荐文章于 2024-09-14 15:58:31 发布

inrgs

最新推荐文章于 2024-09-14 15:58:31 发布

阅读量7k

点赞数 1

分类专栏： VB 文章标签： vb string function date object class

本文链接：https://blog.csdn.net/inrgs/article/details/1493322

版权

VB 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

Option Explicit
Public gstrLogPath As String

Private Sub Class_Initialize()
gstrLogPath = App.Path & "/Log" 'Log路径
End Sub

'*************************************************************************************************
'*函数名： WriteErrLog
'*程序功能：写日志
'*开发人员：inrg
'*异动人员：无
'*传入值： 1.strProgramName -- 类模块名
'*          2.strProcName -- 函数名
'*          3.strErrLog -- ErrorLog內容 eg:Err.Description
'*          4.strErrNumber -- Err对象的错误编号（可选） eg:Err.Number
'*          5.strErrDesc -- Err对象的错误描叙（可选） eg:Err.Description
'*回传值： boolean 成功 = true，失败 = false
'*************************************************************************************************
Public Static Function WriteErrLog(ByVal strProgramName As String, ByVal strProcName As String, ByVal strErrLog As String, Optional ByVal strErrNumber As String, Optional ByVal strErrDesc As String) As Boolean
    Dim FileHandle As Long
    Dim strTxtName As String        '
    Dim FSOLog As Object            '

    On Error GoTo WriteLogFileErr:

    Set FSOLog = CreateObject("Scripting.FileSystemObject")

    WriteErrLog = True

    If (gstrLogPath = "") Then
        WriteErrLog = False
        GoTo WriteLogFileErr:
    End If

    '文件名
    strTxtName = Format(Date, "YYYYMMDD") & ".log"

    '判断是否有Log文件夹
    If Dir(gstrLogPath, vbDirectory) = "" Then
            MkDir gstrLogPath
    End If

    FileHandle = FreeFile
    Open (gstrLogPath & "/" & strTxtName) For Append As #FileHandle
    Lock #FileHandle
        Print #FileHandle, "************************************************************************"
        Print #FileHandle, "Date & Time: " & Format(Time, "HH:MM:SS")
        Print #FileHandle, "Program Name: " & strProgramName
        Print #FileHandle, "Procedure Name: " & strProcName
        Print #FileHandle, "Error Number: " & strErrNumber
        Print #FileHandle, "Error Desc: " & strErrDesc
        Print #FileHandle, "Log: " & strErrLog
        Print #FileHandle, "************************************************************************" & vbNewLine
    Unlock #FileHandle
    Close #FileHandle

    Set FSOLog = Nothing
    Exit Function

WriteLogFileErr:
WriteErrLog = False
End Function