【www.gdgbn.com--安卓教程】

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

本文来源：http://www.gdgbn.com/shoujikaifa/20752/