Dir()でも確認できるけど、ファイル検索中など困るときにはこっち使うと吉。
'Dir()を使わないファイル確認 Function FileExist(path) Dim objFileSys Dim strScriptPath Dim strCopyFrom Dim strCopyTo Set objFileSys = CreateObject("Scripting.FileSystemObject") If objFileSys.FileExists(path) = True Then FileExist = True Else FileExist = False End If Set objFileSys = Nothing End Function