怎么判断一个文件是否存在呢？

[zqq88]

我上传图片到了指定的文件夹，而且图片是一记录的编号命名的。但是就是扩展名可以不同。现在我在显示图片的时候碰到了困难。如果不用FSO，怎么判断改图片是否存在呢？

[leojeff]

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.FileExists(pathName) Then
'exists

End If

[summercat]

cid 编号，jpg 定义文件类型，该满足你的要求了...
<%
dim jpg,imag1,imag2,imag3,imag4
jpg=".jpg"
imag1="1"
imag2="2"
imag3="3"
imag4="4"
set objtools=server.createobject("mswc.tools")
if objtools.fileexists("../../images/"&cid&imag1&jpg)=-1 then
%>

[cabecbbc]

Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.FileExists(pathName) Then

response.write("文件不存在")

End If