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