'==================================================
'函數名:CheckFile
'作用:檢查某一文件是否存在
'參數:FileName------文件地址如:/swf/1.swf
'返回值:False----True
'==================================================
PublicFunctionCheckFile(FileName)
OnErrorResumeNext
DimFsoObj
SetFsoObj=Server.CreateObject("Scripting.FileSystemObject")
IfNotFsoObj.FileExists(Server.MapPath(FileName))Then
CheckFile=False
ExitFunction
EndIf
CheckFile=True:SetFsoObj=Nothing
EndFunction