solidworks VBA中如何输入一个路径地址后，如果这个路径下的某些文件夹不存在，那就按照路径新建这些名字的文件夹，请给出VBA代码

以下是 SolidWorks VBA 中创建文件夹的代码：

Sub CreateFolder()
    Dim fso As Object
    Dim folderPath As String
    
    '设置需要新建的文件夹路径
    folderPath = "C:\Users\username\Documents\NewFolder\SubFolder"
    
    '创建文件夹对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '检查文件夹是否存在，如果不存在则创建
    If Not fso.FolderExists(folderPath) Then
        fso.CreateFolder folderPath
    End If
    
    '释放对象
    Set fso = Nothing
End Sub

在上面的代码中，你需要将 `folderPath` 变量设置为你要创建的文件夹路径。代码首先创建一个 `FileSystemObject` 对象，然后使用 `FolderExists` 方法检查文件夹是否存在。如果文件夹不存在，则使用 `CreateFolder` 方法创建文件夹。最后，释放对象以释放内存。