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

1. '==================================================  
2. '函数名: CheckFile  
3. '作  用：检查某一文件是否存在  
4. '参  数：FileName ------ 文件地址 如:/swf/1.swf  
5. '返回值：False  ----  True  
6. '==================================================  
7.     Public Function CheckFile(FileName)  
8.          On Error Resume Next  
9.          Dim FsoObj  
10.          Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")  
11.           If Not FsoObj.FileExists(Server.MapPath(FileName)) Then  
12.               CheckFile = False  
13.               Exit Function  
14.           End If  
15.          CheckFile = True:Set FsoObj = Nothing  
16.     End Function