002-VBA创建文件夹

一、需求

用Excel做了个待办工具，每个待办会有大量相关文件需要保存，现记录一下如何在用Excel创建新的待办时根据待办的分类与标题快速创建文件夹。

二、相关命令

VBA.MkDir (folderPath)

三、实践

在实际使用过程中，会经常有创建多层文件夹的需求，以下代码来自VBA代码大全015：如何用vba快速地创建多级目录文件夹？ - VBA - ExcelOffice【微信公众号：水星Excel】。

Dim arr, sPathTemp
arr = Split(sPath, "\")
For i = 0 To UBound(arr) - 1
    sPathTemp = arr(i) & "\" & arr(i + 1)
    If Dir(sPathTemp, vbDirectory) = "" Then
        MkDir sPathTemp
    End If
    arr(i + 1) = sPathTemp
Next i

参考

1. VBA (MkDir) | Microsoft Docs
2. VBA代码大全015：如何用vba快速地创建多级目录文件夹？ - VBA - ExcelOffice【微信公众号：水星Excel】