Excel VBAでファイルの存在有無を確認する方法｜Dir関数でチェック

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

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

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

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

ファイル存在チェックの基本：Dir関数

1. Option Explicit
3. Sub CheckFileExistence()
4.     Dim filePath As String
5.     Dim fileExists As Boolean
6.     
7.     ' チェックしたいファイルのパスを指定
8.     filePath = "C:\Users\User\Desktop\sourceFile\motofile.txt"
9.     
10.     ' ファイルの存在を確認
11.     If Dir(filePath) <> "" Then
12.         fileExists = True
13.     Else
14.         fileExists = False
15.     End If
16.     
17.     ' 結果を表示
18.     If fileExists Then
19.         MsgBox "ファイルは存在します: " & filePath
20.     Else
21.         MsgBox "ファイルが見つかりません: " & filePath
22.     End If
23. 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