在使用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

 

本站所有内容均为原创,本站保留所有权利。在保留原始来源链接的情况下,允许非商业用途的转载。拒绝一切商业性转载。

picture loss