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