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

'==================================================

'函数名: 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