Sub フォルダを作成する()
    
    Set フォルダ = CreateObject("Scripting.FileSystemObject")
    
        フォルダ.CreateFolder ("C:\Aフォルダ\")

End Sub