zoukankan      html  css  js  c++  java
  • 如何写错误日志

    'BaseFunction

     

    '测试开关

    Public Enum TYPE_TestFlag

        OutExe = 0 '0-输出到DebugView --;

        OutTxt ='1-输出到日志文件--;

        OutBath = 2 '2-输出到DebugView 也输出到日志文件--;

        OutNull = 3 '3-无错误输出--;

    End Enum

     

    '测试开关常量

    Private Const m_TestFlag = TYPE_TestFlag.OutBath

     

     

    '写日志文件

    Public Sub WriteErrFile(ByVal strMsg As String)

        On Error GoTo ErrHandle

     

        Dim nFileID As Integer

        Dim strFileName As String

     

        strFileName = App.path + "\我的程序.dat"

        strMsg = "ErrTime:" + CStr(Now) + ";ErrDes:" + "我的程序->" + strMsg

     

        Select Case m_TestFlag

            Case TYPE_TestFlag.OutExe

                Call OutputDebugString(strMsg)

                Exit Sub

            Case TYPE_TestFlag.OutTxt

                nFileID = FreeFile

                Open strFileName For Append As #nFileID

                Write #nFileID, strMsg

                Close nFileID

                Exit Sub

            Case TYPE_TestFlag.OutBath

                Call OutputDebugString(strMsg)

                nFileID = FreeFile

                Open strFileName For Append As #nFileID

                Write #nFileID, strMsg

                Close nFileID

                Exit Sub

            Case TYPE_TestFlag.OutNull

                Exit Sub

            Case Else

                Exit Sub

        End Select

     

    ErrHandle:

        Err.Clear

        Resume Next

     

    End Sub

  • 相关阅读:
    笨办法41学会说面向对象【我有新书啦!!!
    pip安装及使用
    Office相关
    python各种学习链接
    3000问
    python2代码批量转python3
    啊——回来了_(:з」∠)_
    停更!
    win10 adb(Android Debug Bridge)导出日志
    docker镜像管理基础操作
  • 原文地址:https://www.cnblogs.com/no7dw/p/1612836.html
Copyright © 2011-2022 走看看