FileSystemObjectオブジェクト - FileExistsメソッド


【書式】

FileSystemObject.FileExists(filespec)

ファイルが存在するかどうか調べます。存在する場合はTrueを返します。

引数filespecには存在を調べるファイル名を指定します。

Sub test10()
    ''C:\Work\Sample.txtが存在するかどうか調べます
    Dim FSO As Object, Target As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Target = "C:\Work\Sample.txt"
    If FSO.FileExists(Target) Then
        MsgBox Target & "が存在します"
    Else
        MsgBox Target & "は存在しません"
    End If
    Set FSO = Nothing
End Sub