核心代码
createfolders "d:\jb51test\1\2\3\4\5"
function createfolders(path)
set fso = createobject("scripting.filesystemobject")
createfolderex fso,path
set fso = nothing
end function
function createfolderex(fso,path)
if fso.folderexists(path) then
exit function
end if
if not fso.folderexists(fso.getparentfoldername(path)) then
createfolderex fso,fso.getparentfoldername(path)
end if
fso.createfolder(path)
end function
经过测试运行没问题

文中的两个函数链接createfolder 方法与getparentfoldername 方法。
发表评论