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

检查目录是否存在

```vbscript

Function CheckDirectoryPresence(FolderPath)

' 创建一个文件系统对象，像侦探一样去你的服务器空间

Dim fso As Object

Set fso = Server.CreateObject("Scripting.FileSystemObject")

' 映射路径，查看指定文件夹是否存在

If fso.FolderExists(Server.MapPath(FolderPath)) Then

' 如果存在，返回确认信息

CheckDirectoryPresence = "目录已存在，一切照旧。"

Else

' 如果不存在，返回寻找结果

CheckDirectoryPresence = "目录尚未建立，准备行动！"

End If

' 释放资源，清理现场

Set fso = Nothing

End Function

```

建立新目录

```vbscript

Function CreateNewsDirectory(foldername)

' 再次创建文件系统对象，这次我们要创建新的工作空间

Dim fso As Object

Set fso = Server.CreateObject("Scripting.FileSystemObject")

' 在指定的路径上创建新的文件夹

fso.CreateFolder(Server.MapPath(foldername))

' 检查新创建的文件夹是否存在

If fso.FolderExists(Server.MapPath(foldername)) Then

' 如果成功创建，返回确认信息

CreateNewsDirectory = "新闻目录已成功建立！"

Else

' 如果创建失败，返回操作结果

CreateNewsDirectory = "建立新闻目录时出现问题，请检查权限或路径。"

End If

' 清理现场，释放资源

Set fso = Nothing

End Function

```