VBA创建多级目录

VBA创建多级目录,代码如下:

'==================================================
' 创建目录
' 调用格式:createDir("C:test")
'==================================================
Function createDir(ByVal pathSpec As String)
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    '不是目录时,创建目录
    If Dir(pathSpec, vbDirectory) = "" Then
        fs.createfolder (pathSpec)
    End If
End Function

'==================================================
' 创建多层目录
' 调用格式:createMutiDir("C:test我是目录哈哈VBA")
'==================================================
Function createMutiDir(ByVal pathSpec As String)

    Dim pathSpecPart As String
    Dim pathSpecArray() As String
    pathSpecArray = Split(pathSpec, "")

    pathSpecPart = pathSpecArray(0)
    ' 循环计数器
    Dim i As Integer
    For i = 1 To UBound(pathSpecArray)
        pathSpecPart = pathSpecPart + "" + pathSpecArray(i) + ""
        createDir (pathSpecPart)
    Next i

End Function