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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!