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