ファイルの存在を確認する

目的

指定したファイルが実際にディスク上に存在するかを確認する。

ポイント

Dir関数を使用する。 Dir関数は存在しないファイルが引数に指定されると空文字が戻り値となる。

２番目のコードは GetAttr関数を使用する例です。シンプルな処理でファイルの存在を確認できます。

サンプルコード

Option Explicit

Private Sub cmdCheck_Click()
' ファイルの存在確認

    Dim strFilename As String

    strFilename = txtFilename.Text

    If Dir(strFilename, vbNormal Or vbSystem Or _
                        vbReadOnly Or vbArchive Or vbHidden) = "" Then
        ' 存在しない
        MsgBox "ファイル(" & strFilename & ")は存在しません。"
    Else
        ' 存在する
        MsgBox "ファイル(" & strFilename & ")は存在します。"
    End If

End Sub

以下の関数は他の方からご提案いただきました。 If FileExist("c:\test.txt") Then のようにして使います。

Private Function FileExist(ByVal strPath As String) As Boolean
    On Error Resume Next
    GetAttr strPath '--ファイルの存在を確認するため
    FileExist = (Err = 0) '--エラーが出なかったらファイルが存在するということ
End Function

ソースのダウンロード