【Excel VBA】Dir関数でファイルやフォルダの存在をチェックする

Public Sub Dir関数サンプル1()
    Dim ファイル名 As String
    
    ファイル名 = Dir("C:\Users\YOU\Documents\test.xlsx")
    
    If ファイル名 <> "" Then
        MsgBox (ファイル名)
    Else
        MsgBox ("ファイルが存在しません")
    End If
End Sub

Public Sub Dir関数サンプル3()
    Dim ファイル名 As String
    
    ファイル名 = Dir("C:\Users\YOU\Documents\", vbHidden)
    
    Do While ファイル名 <> ""
        MsgBox (ファイル名)
        ファイル名 = Dir()
    Loop
End Sub

Public ファイルチェック(ByVal ファイル_パス As String) As Boolean
    Dim ダイアログ As Long

    If Dir(ファイル_パス) <> "" Then
        ダイアログ = MsgBox("ファイルが既に存在します。" & vbCrLf & "〇〇しますか？", vbYesNo)
        Select Case ダイアログ
        Case vbYes
            Exit Function
        Case vbNo
            MsgBox "処理を中止しました"
            ファイルチェック = True
        End Select
    End If
End Function

Public Sub デモ1()
    If ファイルチェック("C:\Users\YOU\Documents\test.xlsx") Then Exit Sub
    MsgBox "〇〇しました"  'Yesの処理を記述
End Sub

Public Sub デモ2()
    Dim ダイアログ As Long

    If Dir("C:\Users\YOU\Documents\test.xlsx") <> "" Then
        ダイアログ  = MsgBox("ファイルが既に存在します。" & vbCrLf & "〇〇しますか？", vbYesNo)
    
        Select Case ダイアログ
        Case vbYes
            MsgBox "〇〇しました"
        Case vbNo
            MsgBox "処理を中止しました"
        End Select
    Else
        MsgBox "〇〇しました"
    End If
End Sub

Public Function フォルダチェック(ByVal フォルダ_パス As String) As Boolean
    Dim ダイアログ As Long

    If Dir(フォルダ_パス, vbDirectory) = "" Then
        ダイアログ = MsgBox("保存用フォルダ「" & フォルダ_パス & "」がありません。作成しますか？", vbYesNo)
        Select Case ダイアログ
        Case 6
            MkDir フォルダ_パス 'MkDirステートメント…フォルダ作成
            MsgBox "フォルダ「" & フォルダ_パス & "」を作成しました"
            Exit Function
        Case 7
            MsgBox "処理を中止します"
            フォルダチェック = True
        End Select
    End If
End Function

Public Sub デモ3()
    If フォルダチェック("C:\Users\YOU\Documents\TEST") Then Exit Sub
End Sub