?? modlog.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -