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