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

 

【版权说明:仅允许非商业转载且请注明出处:Mac私塾 网址:http://macsishu.com】

发表评论

邮箱地址不会被公开。