log.bas

这个是我们为烟草行业出厂管理编写的RFID读写软件

Attribute VB_Name = "LogModule"
'Option Explicit
'
'Public InnerLogLevel As Integer
'Public InnerLogKeepDays As Integer
'Public InnerLogPath As String
'
'Public GLFS As Scripting.FileSystemObject
'
'Private LogIndex As Integer
'
'
''日志记录函数（LEVEL：LOG记录级别；CODEINFO：窗体/模块代码；INFORMATION：错误/报警信息）
'Public Sub PDTRACELOG(LEVEL As Integer, CODEINFO As String, INFORMATION As String)
'    Dim ft As Scripting.TextStream
'    Dim f As Scripting.File
'    Dim logFile As String
'
'    On Error GoTo ErrMsg
'
'    '如果不进行日志记录，则直接退出
'    If InnerLogLevel = 0 Then Exit Sub
'
'    '判断是否是要记录的LOG级别，如果小于则记录之
'    If LEVEL <= InnerLogLevel Then
'        If GLFS Is Nothing Then
'            Set GLFS = New Scripting.FileSystemObject
'        End If
'
'        If Not GLFS.FolderExists(InnerLogPath) Then GLFS.CreateFolder (InnerLogPath)
'
'        logFile = InnerLogPath & "\" & Format(Date, "YYYY-MM-DD") & "-" & LogIndex & ".LOG"
'
'        Do While GLFS.FileExists(logFile)
'            Set f = GLFS.GetFile(logFile)
'            If f.Size > 5000000 Then
'                LogIndex = LogIndex + 1
'                logFile = InnerLogPath & "\" & Format(Date, "YYYY-MM-DD") & "-" & LogIndex & ".LOG"
'            Else
'                Exit Do
'            End If
'        Loop
'
'        Set ft = GLFS.OpenTextFile(logFile, ForAppending, True)
'
'        ft.Write Format(Now, "YYYY-MM-DD hh:mm:ss")
'        ft.WriteLine vbTab & "LEVEL:" & LEVEL & "-----CODEINFO:" & CODEINFO & "-----INFORMATION:" & INFORMATION
'        ft.Close
'        Set ft = Nothing
'    End If
'
'    Exit Sub
'ErrMsg:
'
'End Sub
'
''清除n天前日志文件夹中的日志文件
'Public Sub ClearLogFile()
'    Dim fs As Scripting.FileSystemObject
'    Dim ff As Scripting.Folder
'    Dim fc As Scripting.Files
'    Dim f As Scripting.File
'    Dim fn As String, Pos As Integer
'
''    On Error GoTo ErrMsg
'
'    '记录LOG日志
'    Call PDTRACELOG(2, "000-Log", "--------IN ClearLogFile")
'
'    If InnerLogPath = "" Then
'        Call PDTRACELOG(3, "000-Log", "----InnerLogPath为空----in ClearLogFile")
'        Call PDTRACELOG(2, "000-Log", "--------OUT ClearLogFile")
'        Exit Sub
'    End If
'
'    Set fs = New Scripting.FileSystemObject
'
'    '判断是否存在临时文件目录
'    If Not fs.FolderExists(InnerLogPath) Then
'        fs.CreateFolder InnerLogPath
'    End If
'
'    Set ff = fs.GetFolder(InnerLogPath)
'    Set fc = ff.Files
'
'    For Each f In fc
'        fn = f.Name
'        Pos = InStr(fn, ".")
'        'fn = Left(fn, Pos - 1)
'        fn = Left(fn, 10) 'len("2004-01-02") = 10
'        If IsDate(fn) Then
'            '判断该日志文件是否是n天以前的，如果是就删除之
'            If CDate(fn) < Date - InnerLogKeepDays Then
'                fs.DeleteFile InnerLogPath & "\" & f.Name
'            End If
'        End If
'    Next
'
'    Set fs = Nothing
'
'    '记录LOG日志
'    Call PDTRACELOG(2, "000-Log", "--------OUT ClearLogFile")
'    Exit Sub
'ErrMsg:
'    '记录LOG日志
'    Call PDTRACELOG(1, "075", "清除n天前日志文件夹中的日志文件失败！" & Err.Description)
'
'    Set fs = Nothing
'
'    '记录LOG日志
'    Call PDTRACELOG(2, "000-Log", "--------OUT ClearLogFile(1)")
'End Sub