【Excel VBA】フォルダを新規作成する（MkDir/CreateFolder）

Public Sub createFolderForMkDir()
    Dim createFolderPath As String    ' 作成フォルダパス

    ' 作成フォルダパスの設定
    createFolderPath = "C:\vba-hack\TestFolder"

    ' ファイル作成
    MkDir createFolderPath
End Sub

Public Sub createFolderForFSO()
    Dim fso As New FileSystemObject ' FileSystemObjectインスタンス
    Dim createFolderPath As String  ' 作成フォルダパス

    ' 作成フォルダパスの設定
    createFolderPath = "C:\vba-hack\TestFolder"

    ' ファイル作成
    fso.CreateFolder (createFolderPath)
End Sub

Public Sub createFolderForToday()
    Dim fso As New FileSystemObject ' FileSystemObjectインスタンス
    Dim createFolderPath As String  ' フォルダ作成パス
    Dim todayFolderName As String   ' 当日日付

    ' 当日日付（フォルダ名）取得
    todayFolderName = Format(Date, "yyyymmdd")

    ' 作成フォルダパスの設定
    createFolderPath = "C:\vba-hack\" & todayFolderName

    ' フォルダの存在チェック
    If Not fso.FolderExists(createFolderPath) Then

        ' 日付フォルダが存在しない場合

        ' フォルダ作成
        fso.CreateFolder (createFolderPath)
    End If
End Sub

Public Sub createFolderForCellValue()
    Dim fso As New FileSystemObject ' FileSystemObjectインスタンス
    Dim createFolderPath As String  ' フォルダ作成パス
    Dim folderNameArr As Variant    ' 作成フォルダ名 配列
    Dim folderName As Variant       ' 作成フォルダ名

    ' カレントディレクトリを変更
    ChDir "C:\vba-hack"

    ' 作成するフォルダ名をセルから取得
    folderNameArr = Range(Cells(1, 1), Cells(3, 1))

    For Each folderName In folderNameArr

        ' フォルダの存在チェック
        If Not fso.FolderExists(folderName) Then
    
            ' 日付フォルダが存在しない場合
    
            ' フォルダ作成
            fso.CreateFolder (folderName)
        End If
    Next folderName
End Sub