以下为两个自写的ASP函数,第一个函数CheckDir,用于判断所指定的文件夹是否存在,也就是目录是否存在;第二个函数CheckFile用于检查指定文件是否存在在于某个目录中。
两个函数都是基于ASP中的FileSystemObject对象,也就是FSO,写成函数方便以后使用。
Function CheckDir(Byval FolderPath) dim fso folderpath=Server.MapPath(".")&"\"&folderpath Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(FolderPath) then '存在 CheckDir = True Else '不存在 CheckDir = False End if Set fso = nothing End Function
或
Function isExistFolder(Byval folderDir) on error resume next If objFso.FolderExists(server.MapPath(folderDir)) Then isExistFolder=True Else isExistFolder=False if err then err.clear:isExistFolder=False End Function
Function CheckFile(Byval FilePath) '检查某一文件是否存在 Dim fso Filepath=Server.MapPath(FilePath) Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(FilePath) then '存在 CheckFile = True Else '不存在 CheckFile = False End if Set fso = nothing End Function
或
Function isExistFile(Byval fileDir) on error resume next If (objFso.FileExists(server.MapPath(fileDir))) Then isExistFile=True Else isExistFile=False if err then err.clear:isExistFile=False End Function
下面是其他网友的补充
'================================================== '函数名: 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
到此这篇关于ASP检查文件与目录是否存在的函数代码的文章就介绍到这了,更多相关asp文件是否存在内容请搜索尊托云数以前的文章或继续浏览下面的相关文章希望大家以后多多支持尊托云数!
原型链是一种机制,指的是JavaScript每个对象包括原型对象都有一个内置的[[proto...
想了解更多内容,请访问: 51CTO和华为官方战略合作共建的鸿蒙技术社区 https://...
文件上传过程中,如果我们能看到进度条会更好,实现思路是服务器端用监听器实时...
相信很多人做大批量数据导出和数据导入的时候,经常会遇到PHP内存溢出的问题,在...
本文实例讲述了jsp+Servlet编程实现验证码的方法。分享给大家供大家参考,具体如...
1.初始的一个项目 点击右上角的AVD Manager 当然从欢迎页面也可以创建虚拟机 一...
HTML 4 HTML (非XHTML),MIME type 为 text/html ,允许省略一些标签。通过 HT...
直接贴代码吧: 首先,index_test.jsp页面的代码如下: 复制代码 代码如下: %@ p...
继Chrome 87后,现在谷歌再次送上了新版本,而它就是Chrome 88,其也是带来了不...
截至最近,加密货币热潮席卷整个互联网社区。人们发现,不需要一个价值数千美元...