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