亲宝软件园·资讯

展开

asp文件是否存在 ASP检查文件与目录是否存在的函数代码

人气:0
想了解ASP检查文件与目录是否存在的函数代码的相关内容吗,在本文为您仔细讲解asp文件是否存在的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:asp文件是否存在,下面大家一起来学习吧。

以下为两个自写的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

加载全部内容

相关教程
猜你喜欢
用户评论