指定ファイル/ブック/フォルダが存在するかどうか判断する【ExcelVBA】

指定ファイル/ブック/フォルダが存在するかどうか判断したい

ユーザーが指定したファイルが存在しているかどうか確認したい場合があります。
単純にDir関数で取得するのが一番簡単です。FileSystemObjectのFileExistsでも可能です。

Public Sub sample()
    '■ファイル存在チェック
    If Dir("C:\vba\sample.xlsx") = "" Then
        Debug.Print "存在しない"
    Else
        Debug.Print "存在する"
    End If

    '■フォルダ存在チェック
    If Dir("C:\vba") = "" Then
        Debug.Print "存在しない"
    Else
        Debug.Print "存在する"
    End If
End Sub

結果イメージ

• Dir関数の戻り値が””であれば、存在しないになるため、戻り値を参照します。

注意点

• OneDriveやSharePointを使用している場合は、ファイルパスがhttpsの場合があります。
  その場合、Dir関数は使用できませんので注意ください。

関連記事

• 「指定名のシートが存在するかどうか判断する」をパーツ化する
• 「指定フォルダが存在しなければフォルダ作成」処理をパーツ化する
• Workbooks.Openでサーバー内のファイルを開く
• ファイルまたはフォルダを抽出する【Dir関数】