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

 '==============================
 '函 数 名：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