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

到此这篇关于ASP检查文件与目录是否存在的函数代码的文章就介绍到这了,更多相关asp文件是否存在内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！

您可能感兴趣的文章:

ASP如何检测某文件夹是否存在,不存在则自动创建
asp 判断上传文件中是否存在危险代码
asp判断某个文件是否存在的函数

全 部 栏 目

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

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

全部栏目