ファイルが実際に存在するか確認をする。

FileSystemObjectのFileExistsメソッドを利用してファイルが実際に存在するかを確認することができます。

FileExistsには下記の引数が設定できます。

	引数名	説明	省略
第１引数	filespec	確認対象のファイルのパスを指定	不可

ファイルの存在確認はFileExistsメソッドの戻り値から判断します。
指定したファイルが存在する場合は True 、存在しない場合 False を返します。
またFileExistsの第１引数に実際に存在するフォルダのパス（「C:\VBA」のような末尾がフォルダを示すパス）を指定した場合は False が返されます。

'******************************************************************
'　ファイルの存在確認
'******************************************************************
Sub Main_FileExists()
    
    '確認したいファイルパスを指定
    Dim sFile As String
    sFile = "C:\VBA\FSO\memo.txt"
    
    'FileSystemObjectの作成
    Dim oFso As Object
    Set oFso = CreateObject("Scripting.FileSystemObject")
    
    'ファイルの存在確認
    Dim bRtn As Boolean
    bRtn = oFso.FileExists(sFile)
    If bRtn Then
        Debug.Print bRtn & ":ファイルが存在します"
    Else
        Debug.Print bRtn & ":ファイルが存在しません"
    End If

End Sub

　■実行結果