VBA使用FileSystem函数创建文件夹时突发“路径未找到”错误的解决方法

你的代码里存在几个容易触发该错误的问题，结合排查方向，给出以下修复方案：

1. 修正FolderExists的调用方式 #

你直接使用FolderExists方法，但它是Scripting.FileSystemObject对象的成员，必须通过你创建的FileSystem实例调用，否则会导致方法未定义或逻辑错误。修改后的判断语句：

If Not FileSystem.FolderExists(DestinationFolder & "\" & FolderName) Then

2. 确保根目标目录存在 #

如果传入的DestinationFolder本身不存在，CreateFolder无法直接创建子文件夹，必然抛出“路径未找到”。在循环前添加根目录检查：

' 先检查并创建根目录
If Not FileSystem.FolderExists(DestinationFolder) Then
    FileSystem.CreateFolder DestinationFolder
End If

3. 规范路径拼接，避免格式错误 #

如果DestinationFolder末尾自带反斜杠，手动拼接会生成C:\Test\\SubFolder这类无效路径。用FileSystem.BuildPath自动处理分隔符：

Dim fullPath As String
fullPath = FileSystem.BuildPath(DestinationFolder, FolderName)

4. 排查系统权限与非法字符 #

• 确认当前用户对目标路径有写入权限，比如系统盘根目录、受UAC保护的文件夹可能会拒绝写入
• 检查FolderNames中的名称是否包含Windows禁用字符：/ \ : * ? " < > |

完整修复后的代码 #

Sub CreateMissingFolders(DestinationFolder As String, FolderNames As Variant)
    Dim FileSystem As Object
    Dim FolderName As Variant
    Dim fullPath As String
    
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    
    ' 先确保根目录存在
    If Not FileSystem.FolderExists(DestinationFolder) Then
        FileSystem.CreateFolder DestinationFolder
    End If
    
    For Each FolderName In FolderNames
        fullPath = FileSystem.BuildPath(DestinationFolder, FolderName)
        If Not FileSystem.FolderExists(fullPath) Then
            FileSystem.CreateFolder fullPath
        End If
    Next FolderName
End Sub

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