‘————————- ‘–检查目录是否存在 ‘———————- 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\u00a0=
在ASP (Active Server Pages)开发中，经常需要与服务器上的文件系统进行交互，例如检查一个目录是否存在或创建新的目录。上述代码提供了两个关键的函数，`CheckDir` 和 `MakeNewsDir`，分别用于实现这两个功能。
1. **CheckDir 函数**：
这个函数的主要目的是检查指定的目录路径在服务器上是否实际存在。它接收一个参数 `FolderPath`，该参数是待检查的目录的相对或绝对路径。函数通过以下步骤来完成检查：
- 创建一个 `Scripting.FileSystemObject`（简称 FSO）实例，这是ASP中处理文件系统操作的对象。
- 然后，使用 `Server.MapPath()` 方法将URL路径转换为服务器上的物理路径。`Server.MapPath()` 是ASP的一个内置函数，它可以将虚拟路径转换为服务器硬盘上的实际路径。
- 接下来，调用 FSO 的 `FolderExists()` 方法，传入转换后的物理路径，检查该路径对应目录是否存在。
- 如果目录存在，`FolderExists()` 返回 `True`，函数 `CheckDir` 也返回 `True`；反之，如果目录不存在，`FolderExists()` 返回 `False`，`CheckDir` 返回 `False`。
- 释放 FSO 对象以释放资源。
2. **MakeNewsDir 函数**：
这个函数用于创建一个新的目录。它接收一个参数 `foldername`，表示要创建的目录名。函数的执行流程如下：
- 同样，首先创建一个 FSO 实例。
- 使用 `Server.MapPath()` 转换 `foldername` 为物理路径。
- 调用 FSO 的 `CreateFolder()` 方法，尝试在指定的路径下创建新目录。
- 再次使用 `FolderExists()` 检查新目录是否已经创建成功。
- 如果目录创建成功，`FolderExists()` 返回 `True`，`MakeNewsDir` 返回 `True`；否则，返回 `False`。
- 同样释放 FSO 对象。
这两个函数可以方便地在ASP程序中集成，以便在运行时动态管理服务器上的目录结构。比如，在上传文件、生成动态内容或存储用户数据时，可以先检查目标目录是否存在，如果不存在则创建。这样可以确保文件操作的顺利进行，并避免因目录不存在而引发的错误。
需要注意的是，这些操作需要足够的服务器权限，如果ASP应用程序没有写入或读取文件系统的权限，上述函数可能无法正常工作。此外，为了安全和性能考虑，使用这些函数时应谨慎，避免频繁创建或删除目录，尤其是对公共目录的操作。
