aps下如何判断某个文件是否存在？????

[newabby]

[Studio]

FileSystemObject组件啊

[xuchu]

<%
dim CheckFileExist
dim CheckResult
Set CheckFileExist=Server.CreateObject("Scripting.FileSystemObject")
CheckResult=CheckFileExist.FileExists(Request("Path"))

if CheckResult then
Response.write "找到了！"
else
response.write "文件没有找到！"
end if
%>

[karma]

Function FileExist(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filespec) Then
FileExist = TRUE
Else
FileExist = FALSE
End If
set fso=nothing
End Function


if FileExist(Server.MapPath("whatever.html")) then

end if