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

''================================================== ''函数名:CheckFile ''作用:检查某一文件是否存在 ''参数:FileName------文件地址如:/swf/1.swf ''返回值:False----True ''================================================== PublicFunctionCheckFile(FileName) OnErrorResumeNext DimF

作者: 来源: 时间: 17-11-23 15:39:58

''==================================================
''函数名: CheckFile
''作  用:检查某一文件是否存在
''参  数:FileName ------ 文件地址 如:/swf/1.swf
''返回值:False  ----  True
''==================================================
    Public Function CheckFile(FileName)
         On Error Resume Next
         Dim FsoObj
         Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
          If Not FsoObj.FileExists(Server.MapPath(FileName)) Then
              CheckFile = False
              Exit Function
          End If
         CheckFile = True:Set FsoObj = Nothing
    End Function
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们