ファイルが存在するかどうかを判断するasp関数

Function isExistFolder(Byval folderDir)
	on error resume next
	If objFso.FolderExists(server.MapPath(folderDir)) Then isExistFolder=True Else isExistFolder=False
	if err then err.clear:isExistFolder=False
End Function

Function isExistFile(Byval fileDir)
	on error resume next
	If (objFso.FileExists(server.MapPath(fileDir))) Then isExistFile=True Else isExistFile=False
	if err then err.clear:isExistFile=False
End Function

set XMLHTTP =Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open("HEAD","http://www.test.com/test.htm",false)
XMLHTTP.send()
if XMLHTTP.status=200 then
'File exists
end if

<%
'ASP example code to determine if a file exists and to delete it
dim htmlFilefs
htmlFile=". /book_show.html"
htmlFile=server.MapPath(htmlFile)      
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(htmlFile) Then 'Determine if the file exists
   fs.DeleteFile htmlFile,true 'If the file exists, then delete the file
end if
Set fs=Nothing
%>