一聚教程网:一个值得你收藏的教程网站

热门教程

fso检测文件存在FileExists或文件夹是否存在FolderExists,

时间:2022-06-30 11:41:48 编辑:袖梨 来源:一聚教程网


 '==============================
 '函 数 名:IsFile
 '作    用:检测文件是否存在
 '参    数:文件相对路径FilePath
 '==============================
 Function IsFile(FilePath)
  Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  If (Fso.FileExists(Server.MapPath(FilePath))) Then
   IsFile=True
  Else
   IsFile=False
  End If
  Set Fso=Nothing
 End Function
 
 '==============================
 '函 数 名:IsFolder
 '作    用:检测文件夹是否存在
 '参    数:文件相对路径FolderPath
 '==============================
 Function IsFolder(FolderPath)
  Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  If Fso.FolderExists(Server.MapPath(FolderPath)) Then 
   IsFolder=True
  Else
   IsFolder=False
  End If
  Set Fso=Nothing
 End Function

热门栏目