VBS递归创建多级目录文件夹的方法

核心代码

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 方法。