Excel VBA：ファイルとフォルダの存在確認

ファイルかフォルダが存在しているどうか確認するVBAコード

ExcelシートとVBA入力画面

下画像のように、CommandButton1とCommandButton2の2つのボタンをシートに配置します。

それぞれのコマンドボタンクリックイベントのコードと、ExDirプロシージャを下記のように入力します。

VBAコードの解説

CommandButton1のクリックイベント

BMPファイルとvbNormal（標準ファイル）を引数にして、ExDirプロシージャを呼び出します。
vbNormalを指定することでファイルの存在確認ができます。
ExDirプロシージャからの戻り値が長さ0の文字列("")でなければ、コマンドボタンに「有り」と表示します。戻り値が長さ0の文字列("")の場合、コマンドボタンに「無し」と表示します。

CommandButton2のクリックイベント

フォルダ名とvbDirectory（フォルダ）を引数にして、ExDirプロシージャを呼び出します。
vbDirectoryを指定することでフォルダの存在確認ができます。
ExDirプロシージャからの戻り値の処理は、CommandButton1と同じです。

ExDirプロシージャ

1番目の引数のファイル名かフォルダ名が指定されているかチェックします。
もし指定されていなければ、長さ0の文字列("")を返します。
On Error Resume Nextでエラーを無視します。
エラー番号を初期化します。 Dir関数を実行します。
エラーが発生したかどうかチェックします。
エラーチェックの理由は、Dir関数の引数のパス名がおかしい場合などにエラーが発生し、プログラムが停止するのを防止するためです。
もしエラーが発生していれば、長さ0の文字列("")を返します。

※ 実際に使用する場合は、引数の指定がおかしい場合や、エラーが発生した場合などは何か特別の文字列を返すようにし区別できるようにしてください。

ExcelシートのVBAコード

Option Explicit

'Excel VBAでファイル、フォルダの存在確認
Private Function ExDir(sName As String, nAttr As Integer) As String
    If sName = "" Then
        ExDir = ""
        Exit Function
    End If
On Error Resume Next
    Err.Number = 0
    ExDir = Dir(sName, nAttr)
    If Err.Number <> 0 Then
        ExDir = ""
    End If
On Error GoTo 0
End Function

Private Sub CommandButton1_Click()
    'ファイルの存在確認
    If ExDir("C:\windows\隅田川.bmp", vbNormal) <> "" Then
        CommandButton1.Caption = "有り"
    Else
        CommandButton1.Caption = "無し"
    End If
End Sub

Private Sub CommandButton2_Click()
    'フォルダの存在確認
    If ExDir("C:\windows\", vbDirectory) <> "" Then
        CommandButton2.Caption = "有り"
    Else
        CommandButton2.Caption = "無し"
    End If
End Sub

実行したExcelシート

CommandButton1のファイル存在確認の結果は「無し」、CommandButton2のフォルダ存在確認の結果は「有り」と表示されています。
実行したExcelシート

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel VBA：ファイルとフォルダの存在確認｜Dir関数を使用

ファイルかフォルダが存在しているどうか確認するVBAコードを掲載しています。

Dir関数の構文

引数attributesの定数