【Excel】VBAマクロでフォルダの存在チェック・確認（複数も）し、なければ作成や削除（あれば）などする方法

Sub FolderExistenceCheckAndCreate()
    Dim targetFolder As String
    targetFolder = "C:\YourFolderPath" ' 目的のフォルダパスを設定
    Dim folderName As String
    folderName = Dir(targetFolder, vbDirectory) ' フォルダの存在チェック

    If folderName = "" Then
        MkDir targetFolder ' フォルダが存在しない場合、作成
    Else
        Dim counter As Integer
        counter = 1
        Do While folderName <> ""
            folderName = Dir(targetFolder & "_" & counter, vbDirectory)
            counter = counter + 1
        Loop
        MkDir targetFolder & "_" & counter ' 存在する場合、連番で新しいフォルダを作成
    End If
End Sub

Sub CheckAndDeleteFolders()
    Dim folderPath As String
    folderPath = GetFolder("C:\") ' ダイアログでフォルダを選択

    Dim folderToCheck As String
    folderToCheck = folderPath & "\*" ' チェックするフォルダのパス

    Dim folderName As String
    folderName = Dir(folderToCheck, vbDirectory) ' 最初のフォルダ名を取得

    Do While folderName <> ""
        If (GetAttr(folderPath & "\" & folderName) And vbDirectory) = vbDirectory Then
            Kill folderPath & "\" & folderName ' フォルダが存在すれば削除
        End If
        folderName = Dir() ' 次のフォルダ名を取得
    Loop
End Sub

Function GetFolder(defaultFolder As String) As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = defaultFolder
        .Show
        If .SelectedItems.Count > 0 Then
            GetFolder = .SelectedItems(1)
        End If
    End With
End Function