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

<
创建一个多级目录来创建一个不存在的根目录
参数：要创建的目录的名称可以是多层次的。
返回逻辑值、真成功、假故障
创建目录的根目录从当前目录开始。
---------------------------------------------------

函数的CreateMultiFolder（ByVal CFolder）
昏暗的objfso，phcreatefolder，CreateFolderArray，CreateFolder
朦胧的我，二，createfoldersub，phcreatefoldersub，BlInfo
blinfo = false
创建文件夹= cfolder
下次继续出错
集objfso = server.createobject（脚本。FileSystemObject ）
如果犯错，然后
错误。
退出功能
最后如果
创建文件夹=取代（CreateFolder，
如果左（CreateFolder，1）= /
CreateFolder =右（CreateFolder，Len（创建）- 1）
最后如果
如果是正确的（CreateFolder，1）= /
创建文件夹=左（CreateFolder，Len（创建）- 1）
最后如果
createfolderarray =分裂（CreateFolder， / ）
我= 0，UBound（createfolderarray）
= createfoldersub
对于II = 0到i
createfoldersub = createfoldersub createfolderarray（II） /
下一个
phcreatefoldersub = server.mappath（createfoldersub）
如果不objfso.folderexists（phcreatefoldersub）然后
ObjFSO.CreateFolder（phcreatefoldersub）
最后如果
下一个
如果犯错，然后
错误。
其他的
blinfo =真
最后如果
createmultifolder = blinfo
端功能
%>

使用方法：

% >

函数的返回值为真（成功）或false（失败，可能主机不支持FSO函数）。