【ExcelVBA】フォルダの作成・削除・存在確認する方法

Sub Sample()
'***********************************
'フォルダの作成
'***********************************

    Dim ForlderPath As String
    
    '作成するフォルダパスを変数にセット
    ForlderPath = ThisWorkbook.Path & "\" & Format(Now(), "yyyyMMdd")

    '作成するフォルダパスがない場合
    If Dir(ForlderPath, vbDirectory) = "" Then
      
        'フォルダを作成する
        MkDir ForlderPath
        
    End If

End Sub

Sub Sample()
'***********************************
'フォルダの削除（サブフォルダ・ファイルあり）
'***********************************

    Dim ForlderPath As String
    Dim fso As Object
    
    '削除するフォルダパスを変数にセット
    ForlderPath = ThisWorkbook.Path & "\" & Format(Now(), "yyyyMMdd")
    
    'FileSystemObjectのインスタンスを作成
    Set fso = CreateObject("Scripting.FileSystemObject")

    '削除するフォルダパスがある場合
    If Dir(ForlderPath, vbDirectory) <> "" Then

        'エラーの場合は「Err:」にジャンプする
        On Error GoTo Err
        
        'フォルダの削除を実行
        fso.DeleteFolder ForlderPath, True
        
    End If
    
    Set fso = Nothing

　　Exit Sub
    
Err:

    MsgBox "フォルダを削除できませんでした。" & vbLf & "フォルダ内のファイルが開かれている可能性があります。"

    Set fso = Nothing

End Sub

Sub Sample()
'***********************************
'フォルダの存在確認
'***********************************

    Dim ForlderPath As String
    
    '確認するフォルダパスを変数にセット
    ForlderPath = ThisWorkbook.Path & "\" & Format(Now(), "yyyyMMdd")

    'フォルダの存在確認
    If Dir(ForlderPath, vbDirectory) <> "" Then
      
       MsgBox "フォルダが存在します。"
      
      Else

       MsgBox "フォルダが存在しません。"
        
    End If

End Sub