‘================================================== ‘函数名: CheckFile ‘作 用：检查某一文件是否存在 ‘参 数：FileName —— 文件地址 如:/swf/1.swf ‘返回值：False —- True ‘================================================== Public Function CheckFile(FileName) On Error Resume Next Dim FsoObj Set Fso
