modlog.bas

来自「I implemented a perfect file transfer OC」· BAS 代码 · 共 28 行

Attribute VB_Name = "modLog"
Option Explicit

Const logError As String = "ctlFtp.log"

Public Sub traceLOG(sRoutine As String)
    ' Trace log
    Dim File_N  As Integer
    Dim sErr    As String
    
    On Error GoTo errH
    
    sErr = "Err. N. " & Err.Number & vbCrLf & "Err. Desc. " & Err.Description
    sErr = Now & "--- " & sRoutine & vbCrLf & sErr
    
    File_N = FreeFile
    Open App.Path & "\" & logError For Append As File_N
    
    Print #File_N, sErr
    
    Close File_N
    
Exit Sub
errH:
End Sub