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