关闭

ASP利用FSO查找本地文件

1179人阅读 评论(0) 收藏 举报

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

<%
'函数: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")
%>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:253013次
    • 积分:3680
    • 等级:
    • 排名:第9127名
    • 原创:90篇
    • 转载:62篇
    • 译文:17篇
    • 评论:46条
    最新评论