一个专注于大数据技术架构与应用分享的技术博客

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

 

赞(1)
版权声明:本文采用知识共享 署名4.0国际许可协议 [BY-NC-SA] 进行授权
文章名称:《VBA脚本中如何一次性创建多层级目录》
文章链接:https://macsishu.com/vba%e8%84%9a%e6%9c%ac%e4%b8%ad%e5%a6%82%e4%bd%95%e4%b8%80%e6%ac%a1%e6%80%a7%e5%88%9b%e5%bb%ba%e5%a4%9a%e5%b1%82%e7%ba%a7%e7%9b%ae%e5%bd%95
本站资源仅供个人学习交流,请于下载后24小时内删除,不允许用于商业用途,否则法律问题自行承担。