Path 中未创建指定目录

Question

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 。 代码确实编译并运行了这个 function 但是，在文件资源管理器中查看时，没有显示具有sLogPath中指示的名称的文件夹。

Answer 1

正如@JeremyThompson 所指出的，我忽略on Error Resume Next 。 这帮助我意识到我无法在一个MkDir命令上创建 2 个文件夹。 那解决了问题。