CheckFile函数之asp实现检查某一文件是否存在的代码

2018-09-06 11:08

阅读:443

  ==================================================
函数名:CheckFile
作用:检查某一文件是否存在
参数:FileName------文件地址如:/swf/1.swf
返回值:False----True
==================================================
PublicFunctionCheckFile(FileName)
OnErrorResumeNext
DimFsoObj
SetFsoObj=Server.CreateObject(Scripting.FileSystemObject)
IfNotFsoObj.FileExists(Server.MapPath(FileName))Then
CheckFile=False
ExitFunction
EndIf
CheckFile=True:SetFsoObj=Nothing
EndFunction


评论


亲,登录后才可以留言!