modlog.bas

I implemented a perfect file transfer OCX client/server. I created a perfect function to parse and s

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