Excelファイルのあるフォルダに任意のフォルダを作成する

＜分類：フォルダ作成＞
＜使用例：Excelファイルのあるフォルダにbackupというフォルダを作成する＞

＜プログラム例＞

Sub 使用例()
   Dim s As String

  '作成するフォルダ名
   s = "backup"

   Call Excelファイルのあるフォルダに任意のフォルダを作成(s)

   MsgBox ("作成したフォルダは" & s & "です")

End Sub


Sub Excelファイルのあるフォルダに任意のフォルダを作成(p1)

'p1:任意のフォルダ名

    Dim cfolder_path As String
    Dim aFso As Object
    Set aFso = CreateObject("Scripting.FileSystemObject")
    
   '任意のフォルダのフォルダパスを設定
    cfolder_path = ThisWorkbook.Path & "\" & p1
   
   'フォルダの存在確認
    If aFso.FolderExists(cfolder_path) Then
      '作成しようとしたフォルダはすでに存在している
    Else
      '作成しようとしたフォルダは存在しないので作成する
       aFso.CreateFolder (cfolder_path)
    End If
    
End Sub