ファイルの存在を調べる【FileExistsメソッド】【FileSystemObject】【ExcelVBA】

構文

Object.FileExists(filespec) 

FileExistsメソッドのサンプルコード

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■ファイルが存在するかどうかチェック
    Debug.Print fso.FileExists("C:\vba\sample.xlsx") ' 存在すればTrue / しなければFalse
        
    '■IF文で記載する場合は以下。
    If fso.FileExists("C:\vba\sample.xlsx") Then
        Debug.Print "True"
    Else
        Debug.Print "False"
    End If
        
    '■フォルダの存在確認はFileExistsでは不可。FolderExists
    Debug.Print fso.FileExists("C:\vba")
    
    
End Sub

注意点

• フォルダの存在確認はFolderExistsメソッドを使用します。
• FileSystemObjectを使用しない場合は、Dir関数でファイル存在確認できます。

関連記事

• 特にありません。