Asp常用通用函数之创建、删除目录

'函数名：CreateDir
  '作 用：创建目录
  '参 数：crDirname ---- 目录名（包括路径）
  '返回值：目录创建成功返回True,否则False
  '**************************************************
  Public Function CreateDir(ByVal crDirname)
   Dim M_fso
   CreateDir=False
   Set M_fso = CreateObject("Scripting.FileSystemObject")
   If (M_fso.FolderExists(crDirname)) Then
   CreateDir=False
   Else
   M_fso.CreateFolder(crDirname)
   CreateDir=True
   End If
   Set M_fso = Nothing
  End Function
  '************************************************** 
 '函数名：DelDir
  '作 用：删除目录
  '参 数：DlDirname ---- 目录名（包括路径）
  '返回值：目录删除成功返回True,否则False
  '**************************************************
  Public Function DelDir(ByVal DlDirname)
   Dim M_fso
   DelDir=False
   Set M_fso = CreateObject("Scripting.FileSystemObject")
   If (M_fso.FolderExists(DlDirname)) Then
   M_fso.DeleteFolder(DlDirname)
   DelDir=True
   End If
   Set M_fso = Nothing
  End Function