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