天枫庄资源网 Design By www.wosibo.com

以下为两个自写的ASP函数,第一个函数CheckDir,用于判断所指定的文件夹是否存在,也就是目录是否存在;第二个函数CheckFile用于检查指定文件是否存在在于某个目录中。

两个函数都是基于ASP中的FileSystemObject对象,也就是FSO,写成函数方便以后使用。

ASP检查目录是否存在的函数代码

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

ASP检查文件是否存在的函数代码

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文件是否存在

天枫庄资源网 Design By www.wosibo.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
天枫庄资源网 Design By www.wosibo.com

评论“ASP检查文件与目录是否存在的函数代码”

暂无ASP检查文件与目录是否存在的函数代码的评论...