ExcelVBA 指定したファイルが存在するかをプログラムで確認する方法

以下のようなシーンで利用されます。

1.ファイルを開く前に存在を確認する。

2.古いファイルを削除する前に存在確認する。

3.ファイルの自動処理（例: バックアップ作成、データ更新）を行う前に準備状況を確認する。

Option Explicit

Sub CheckFileExistence()
    Dim filePath As String
    Dim fileExists As Boolean
    
    ' チェックしたいファイルのパスを指定
    filePath = "C:\Users\User\Desktop\sourceFile\motofile.txt"
    
    ' ファイルの存在を確認
    If Dir(filePath) <> "" Then
        fileExists = True
    Else
        fileExists = False
    End If
    
    ' 結果を表示
    If fileExists Then
        MsgBox "ファイルは存在します: " & filePath
    Else
        MsgBox "ファイルが見つかりません: " & filePath
    End If
End Sub

指定フォルダ内に特定のファイルが存在するかを確認するコード

Option Explicit

Sub CheckMultipleFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim targetFile As String
    Dim fileFound As Boolean
    
    ' フォルダのパスと確認したいファイル名を指定
    folderPath = "C:\Users\User\Desktop\sourceFile\"
    targetFile = "motofile.txt"
    
    ' フォルダ内を検索
    fileName = Dir(folderPath & targetFile)
    fileFound = (fileName <> "")
    
    ' 結果を表示
    If fileFound Then
        MsgBox "ファイルが見つかりました: " & folderPath & fileName
    Else
        MsgBox "指定したファイルは存在しません: " & folderPath & targetFile
    End If
End Sub