ASP利用FSO查找本地文件

因为需求比较简单，未进行遍历操作。

<%
'函数：chkFile
'输入参数：path－要查找的路径
' filename－要找的文件
'输出参数：chkFile－是否存在 1 存在 2不存在 3错误
'功能描述：查找对应文件是否存在
'
function chkFile(path,filename)
chkFile="2"
Set fso = CreateObject("Scripting.FileSystemObject")
on error resume next
set objFolder=fso.GetFolder(path)

set objFiles=objFolder.Files
for each objFile in objFiles
if objFile.name=filename then
chkFile="1"
exit for
end if
next

dispose:
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function

dim filename
if month(now)<10 then
filename = year(now) & "-0" & month(now) & "-" & day(now)
else
filename = year(now) & "-" & month(now) & "-" & day(now)
end if
Response.write chkFile("f:/mes/fso","ChkFile.asp")
%>