ASP检查目录是否存在的函数代码
FunctionisExistFolder(ByvalfolderDir)
onerrorresumenext
IfobjFso.FolderExists(server.MapPath(folderDir))ThenisExistFolder=TrueElseisExistFolder=False
iferrthenerr.clear:isExistFolder=False
EndFunction
ASP检查文件是否存在的函数代码
FunctionisExistFile(ByvalfileDir)
onerrorresumenext
If(objFso.FileExists(server.MapPath(fileDir)))ThenisExistFile=TrueElseisExistFile=False
iferrthenerr.clear:isExistFile=False
EndFunction
asp中判断文件是否存在(不是本机上的文件)
用fso.fileexists只能查询本地文件是否存在,用组件xmlhttp的readyState的方法可以获取远程文件是否存在,返回大于0,表示文件存在,否则,就是不存在。
setXMLHTTP=Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open("HEAD","http://www.test.com/test.htm",false)
XMLHTTP.send()
ifXMLHTTP.status=200then
'文件存在
endif
ASP判断文件是否存在以及删除文件实例代码
<%
'ASP判断文件是否存在以及删除文件实例代码
dimhtmlFilefs
htmlFile="../book_show.html"
htmlFile=server.MapPath(htmlFile)
Setfs=Server.CreateObject("Scripting.FileSystemObject")
Iffs.FileExists(htmlFile)Then'判断文件是否存在
fs.DeleteFilehtmlFile,true'如果文件存在,则删除文件
endif
Setfs=Nothing
%>
|