当前位置: 首页 > 图文教程 > 网络编程 > ASP > CheckFile函数之asp实现检查某一文件是否存在的代码

ASP
资料验证的asp.net程序
用ASP、VB和XML建立互联网应用程序(1)
用ASP、VB和XML建立互联网应用程序(2)
用ASP、VB和XML建立互联网应用程序(3)
用ASP、VB和XML建立互联网应用程序(4)
用XSL.ASP编辑XML文档
一个ASP.NET+XML留言本例子
股票报价的WebService之一
股票报价的WebService之二
股票报价的WebService之三
股票报价的WebService之四
股票报价的WebService之五
ASP.NET发送ICQ信息DIY(1)
ASP.NET发送ICQ信息DIY(2)
无组件图文混合上传示例
使用AspImage制作图形(一)
使用AspImage制作图形(二)
一个漂亮的点击计数器
取得服务器上用户组列表脚本之VBS版
取得服务器上用户组列表的脚本之asp版

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 135 ::
收藏到网摘: n/a

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