Option Explicit

Private log As Object
Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As LongPtr) As LongPtr
Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As LongPtr) As LongPtr
Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As LongPtr
#If VBA7 Then
 Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

'===================================== Log ====================================
Public Sub initLog()
On Error Resume Next
    Dim FSO As Object
    Dim sLogName As String
    Dim sLogPath As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sLogPath = "C:\Users\" & UserName & "\Documents\Tmp\xlLog"
    sLogName = "\Metric-Log.txt"
    If Not FSO.FolderExists(sLogPath) Then
        MkDir sLogPath
        If Dir(sLogPath & sLogName) <> "" Then
            Set log = FSO.OpenTextFile(sLogPath & sLogName, 8, 0)
        Else
            Set log = FSO.CreateTextFile(sLogPath & sLogName, False)
        End If
    End If
    Set FSO = Nothing
End Sub

UserName在其他地方定义。但是没有创建\Tmp\xlLog。代码确实编译并运行过此函数，但是在文件资源管理器中查找时，没有显示具有sLogPath中指定名称的文件夹。