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