EXCEL、VBA

【VBA】ファイルの存在チェック

 

ファイルの存在チェックをする構文

ファイルの存在チェックをする構文は次のとおり。FileSystemObjectを使用します。

Dim fso As Object
Dim result As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
'変数resultにチェック結果が代入される（True：存在する、False：存在しない）
result = fso.FileExists("ファイルのパス") 'パスはフルパスで指定
Set fso = Nothing

 

 

ファイルの存在チェック

上の構文を使用した、ファイルの存在チェックをする関数です。

引数　filePath : 存在確認するファイルのフルパス（文字列）

戻り値　True：存在する、False：存在しない

Public Function checkExistsFile(ByVal filePath As String) As Boolean

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'ファイル存在確認
    checkExistsFile = fso.FileExists(filePath)
    Set fso = Nothing
        
End Function

 

実行例

Debug.Print checkExistsFile("C:\test\testfile.txt")
' True

Debug.Print checkExistsFile("C:\test\testfile2.txt")
' False