VBA脚本中如何一次性创建多层级目录

在使用VBA创建目录（文件夹）时，除了最下面一层的目录外，如果其他层目录不存在，则报错。

那么，如果想一次性创建多个目录，就需要自己写脚本实现。

如果过程实现了一次性创建多层级目录，如果上级目录不存在，则自动创建。

Public Sub MakeDir(destpath As String)
    On Error Resume Next
    Dim curpath As String
    Dim i As Integer
    Dim path As Variant
    Dim pathstr() As String
    pathstr() = Split(destpath, "\")
    i = 0
    For Each path In pathstr()
        i = i + 1
        If i = 1 Then
            curpath = path
        Else
            curpath = curpath & "\" & path
            MkDir curpath
        End If
    Next
End Sub