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