asp实现检查目录是否存在与建立目录的函数

"-------------------------
"--检查目录是否存在
"----------------------
Function CheckDir（byval FolderPath）
    dim fso
    Set fso = Server.CreateObject（"Scripting.FileSystemObject"）
    If fso.FolderExists（Server.MapPath（folderpath）） then
    "存在
        CheckDir = True
    Else
    "不存在
        CheckDir = False
    End if
    Set fso = nothing
End Function

"-------------------------
"--建立目录
"----------------------
Function MakeNewsDir（byval foldername）
    dim fso
    Set fso = Server.CreateObject（"Scripting.FileSystemObject"）
        fso.CreateFolder（Server.MapPath（foldername））
        If fso.FolderExists（Server.MapPath（foldername）） Then
           MakeNewsDir = True
        Else
           MakeNewsDir = False
        End If
    Set fso = nothing
End Function