【VBA】ファイル／フォルダ存在チェック

'ファイルのパス
file_path = "C:\xxxx\yyyy\zzz.txt"

'ファイル存在チェック
result = Dir(file_path) <> ""

If (result) Then
    MsgBox "ファイルが存在しました。"
Else
    MsgBox "ファイルが存在しませんでした。"
End If

'ファイル存在チェック
Public Function IsExistsFile(file_path)
    IsExistsFile = Dir(file_path) <> ""
End Function

'フォルダのパス
folder_path = "C:\xxxx\yyyy"

'フォルダ存在チェック
result = Dir(folder_path, vbDirectory) <> ""

If (result) Then
    MsgBox "フォルダが存在しました。"
Else
    MsgBox "フォルダが存在しませんでした。"
End If

'フォルダ存在チェック
Public Function IsExistsFolder(ByVal folder_path)
    If (Right(folder_path, 1) <> "\") Then
        folder_path = folder_path & "\"
    End If
    IsExistsFolder = Dir(folder_path, vbDirectory) <> ""
End Function