ファイル又はフォルダが存在するかチェックする方法

2024年09月14日

ファイルの存在確認を行う方法

ファイルの存在確認を行うには、Dir関数を使用します。

Dir(ファイルパス)として空白が返ってきた場合はファイルは存在せず、ファイル名が返ってきた場合はファイルが存在していることになります。 下記のサンプルコードをご参考ください。

Sub ファイル存在チェック()

    Dim FilePath As String
    FilePath = "C:\Users\○○\Desktop\サンプルエクセル.xlsx"

    If Dir(FilePath) = "" Then
        MsgBox "ファイルが見つかりませんでした"
    Else
        MsgBox "ファイルが見つかりました"
    End If

End Sub
    

フォルダの存在確認を行う方法

フォルダの存在確認を行う方法もファイルと同様Dir関数を使用します。

Dir(ファイルパス,vbDirectory)とすることで、フォルダ名が返ってきた場合は、フォルダが存在します。
下記のサンプルコードをご参考ください。

Sub フォルダ存在チェック()

    Dim FolderPath As String
    FolderPath = "C:\Users\○○\Desktop\VBA"

    If Dir(FolderPath, vbDirectory) = "" Then
        MsgBox "フォルダが見つかりませんでした"
    Else
        MsgBox "フォルダが見つかりました"
    End If

End Sub
    

関連記事

	フォルダを一括で作成する方法
	テキストファイルの読み込み
	CSVを文字コード(UTF-8)を指定して出力する方法