Option Explicit

Sub createFolder()
    On Error Resume Next
    
    'create folder with vba
    VBA.MkDir ("D:\Excel\VBA_Example")
End Sub

网站题目：VBA创建文件夹
本文路径：http://www.tsicrk.com/article/ggeegd.html