一个可以自动创建多级目录的函数

Function：创建多级目录

在这个功能中，我们可以创建不存在的根目录。只需要提供想要创建的目录名称，无论是单级还是多级，都会尝试为您创建。成功与否，会返回一个逻辑值，True表示成功，False表示失败。创建的根目录从当前目录开始。

Function CreateMultiFolder(ByVal CFolder)

1. 初始化变量：objFSO, PhCreateFolder, CreateFolderArray, CreateFolder等。并设置BlInfo为False，表示默认情况为失败。

2. 获取输入的目录名称CFolder，并进行一系列错误处理和目录路径规范化处理。

3. 利用Server.CreateObject创建Scripting.FileSystemObject对象，用于文件系统操作。

4. 对输入的目录路径进行分割和处理，确保路径的正确性。

5. 循环遍历每个子目录，检查是否存在，如果不存在则创建。

6. 如果在过程中发生错误，则清除错误并继续执行。如果成功创建所有目录，则将BlInfo设置为True。

7. 最后返回BlInfo，表示操作的成功与否。

使用方法：

使用Response.Write调用CreateMultiFolder函数，并传入要创建的目录路径，例如"/upload/2006/11/11/"。函数的返回结果将通过网页输出，成功则返回"True"，失败则返回"False"（可能是由于主机不支持FSO功能）。

这个功能的强大之处在于，它可以自动为您创建多级目录，无需逐级手动创建。无论是网站的文件管理、个人项目文件夹的组织，还是其他需要目录管理的场景，都能为您带来极大的便利。不过需要注意的是，该功能依赖于主机的文件系统操作功能，某些主机可能不支持。