Asp常用通用函数之判断目录是否存在

 '函数名：CheckDir
  '作 用：判断目录是否存在
  '参 数：ckDirname ---- 目录名（包括路径）
  '返回值：目录存在返回True,否则False
  '**************************************************
  Public Function CheckDir(ByVal ckDirname)
   Dim M_fso
   CheckDir=False
   Set M_fso = CreateObject("Scripting.FileSystemObject")
   If (M_fso.FolderExists(ckDirname)) Then
   CheckDir=True
   End If
   Set M_fso = Nothing
  End Function