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

【编者按】网学网ASP频道为大家收集整理了“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