创建子目录时出现VBA Runtime 52错误求助

错误根源分析 #

• Runtime 52（文件名或路径错误）：代码中使用了Unix风格的路径分隔符/，而Windows系统（包括共享网络驱动器）要求使用反斜杠\，这会直接导致路径解析失败。
• Runtime 72（网络路径错误）：通常由网络连接不稳定、共享路径权限不足，或是Dir函数在判断网络目录存在性时的局限性引发。

修复方案 #

方案1：修正原代码的路径分隔符

替换路径分隔符为Windows标准格式，同时增加空路径判断（避免未保存工作簿导致的异常）：

Sub CreateFolder(DateExt As String)
   Dim Pth As String, NewFldr As String, NewDir As String

   Pth = ActiveWorkbook.Path
   ' 检查工作簿是否已保存，避免空路径
   If Pth = "" Then
       MsgBox "请先保存当前工作簿", vbExclamation
       Exit Sub
   End If
   ' 使用Windows标准反斜杠作为路径分隔符
   NewFldr = "\" & DateExt & " IDR Statements"
   NewDir = Pth & NewFldr
    ' 兼容网络路径的目录存在性判断
    If Dir(NewDir, vbDirectory + vbNormal) = "" Then
      MkDir NewDir
    End If
End Sub

方案2：使用FileSystemObject（推荐用于网络路径）

FileSystemObject对网络路径的支持更稳定，能规避Dir和MkDir的局限性，还支持多级目录创建：

' 后期绑定版本，无需额外引用
Sub CreateFolder_FileSystemObject(DateExt As String)
    Dim fso As Object
    Dim Pth As String, NewDir As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Pth = ActiveWorkbook.Path
    
    If Pth = "" Then
        MsgBox "请先保存当前工作簿", vbExclamation
        Exit Sub
    End If
    
    NewDir = Pth & "\" & DateExt & " IDR Statements"
    
    ' 检查目录是否存在，不存在则创建
    If Not fso.FolderExists(NewDir) Then
        fso.CreateFolder NewDir
    End If
    
    Set fso = Nothing
End Sub

额外注意事项 #

• 确保对目标共享驱动器拥有写入权限，权限不足也会触发类似错误。
• 优先使用UNC路径（如\\ServerName\ShareFolder），避免依赖映射驱动器号（不同用户的映射配置可能不一致）。
• 可增加错误捕获机制，应对网络波动等异常情况：

Sub CreateFolder_WithErrorHandling(DateExt As String)
   Dim Pth As String, NewFldr As String, NewDir As String

   Pth = ActiveWorkbook.Path
   If Pth = "" Then
       MsgBox "请先保存当前工作簿", vbExclamation
       Exit Sub
   End If
   NewFldr = "\" & DateExt & " IDR Statements"
   NewDir = Pth & NewFldr
   
   On Error Resume Next
   MkDir NewDir
   ' 针对不同错误给出明确提示
   If Err.Number <> 0 Then
       Select Case Err.Number
           Case 52: MsgBox "路径格式错误，请确认使用反斜杠作为分隔符", vbCritical
           Case 72: MsgBox "网络连接异常或无目录写入权限", vbCritical
           Case Else: MsgBox "创建目录失败：" & Err.Description, vbCritical
       End Select
   End If
   On Error GoTo 0
End Sub

内容的提问来源于stack exchange，提问作者Brian Moody