复制代码代码如下所示：
==============================
创建一个多级目录来创建一个不存在的根目录
参数：要创建的目录的名称可以是多层次的。
创建目录的根目录从当前目录开始。
调用示例
联络CreateMultiFolder（ / / /我的照片上传jumbot / ）
==============================

函数的CreateMultiFolder（ByVal CFolder）
昏暗的objfso，phcreatefolder，CreateFolderArray，CreateFolder
朦胧的我，二，createfoldersub，phcreatefoldersub，BlInfo
blinfo = false
创建文件夹= cfolder
下次继续出错
集objfso = server.createobject（脚本。FileSystemObject ）
如果犯错，然后
错误。
退出功能
最后如果
如果是正确的（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
端功能

以上就是循环
以下是正则化
复制代码代码如下所示：
==============================
创建文件目录（多层）
使用常规
==============================

功能create_n_folder（保存、ByVal Path）
暗淡的光
设置FSO = server.createobject（脚本。FileSystemObject ）
如果不fso.folderexists（路径）然后
昏暗的正则表达式
设置新的正则表达式正则表达式=
正则表达式模式= ^（。*）
正则表达式。全球= false
regex.ignorecase =真
保存为正则表达式。取代（路径，2美元）的|
路径=正则表达式。取代（路径，1美元）
如果create_n_folder（保存路径）然后create_n_folder =真
设置正则表达式=没有
其他的
如果保存=然后|
create_n_folder =真
其他的
微弱的温度
温度=中部（保存，2，莱恩（保存）- 2）
如果InStrRev（温度，| ）= 0
保存为|
路径
其他的
昏暗的文件夹
Folder = Mid (Temp, InStrRev (Temp, |) + 1)
保存为中| （Temp，1，instrrev（温度，| ）1）|
路径文件夹
最后如果
fso.createfolder路径
如果create_n_folder（保存路径）然后create_n_folder =真
最后如果
最后如果
设置FSO
端功能