因为需求比较简单,未进行遍历操作。
<%
'函数: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")
%>