使用VBA在指定路径新建文件夹

下面是使用VBA在指定路径新建文件夹的代码：

Sub CreateFolder()
    Dim folderPath As String
    folderPath = "C:\Users\Username\Desktop\NewFolder" '指定文件夹路径
    If Dir(folderPath, vbDirectory) = "" Then '判断文件夹是否存在
        MkDir folderPath '创建文件夹
        MsgBox "文件夹创建成功！"
    Else
        MsgBox "文件夹已存在！"
    End If
End Sub

在代码中，我们首先定义了一个变量folderPath，用于存储要新建的文件夹路径。然后使用Dir函数判断该路径下是否已经存在同名文件夹，如果不存在，则使用MkDir函数创建新的文件夹，并弹出提示框告知创建成功；如果已经存在同名文件夹，则弹出提示框告知文件夹已存在。