在VBA Excel中动态创建文件夹

Sub CreateFolder()
    Dim fso As Object
    Dim folderPath As String
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Your\Folder"
    
    ' 检查文件夹是否存在，如果不存在则创建
    If Not fso.FolderExists(folderPath) Then
        fso.CreateFolder folderPath
        MsgBox "文件夹创建成功！"
    Else
        MsgBox "文件夹已存在！"
    End If
    
    ' 释放对象
    Set fso = Nothing
End Sub