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

鉴于大家对ASP十分关注，我们编辑小组在此为大家搜集整理了“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