小编min*_*ow1的帖子

我在 A 列中有一个文件夹位置列表，它定义了我要创建的目录层次结构（例如“C:\topFolder\nextFolder\lastFolder\”）。代码运行没有错误，但没有创建文件夹。我是什么这里做错了吗？

Sub newDestination()
    Dim Path As Variant
    Dim folderLevel As Variant

    For Each Path In Sheet11.Range("A:A")
        For Each folderLevel In Split(Path.Value, "\")
            folderLevel = folderLevel & "\"
            If Len(Dir(folderLevel, vbDirectory)) = 0 Then
                MkDir folderLevel
            End If
        Next folderLevel
    Next Path

End Sub