快活林资源网 Design By www.csstdc.com

核心代码

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

经过测试运行没问题

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

文中的两个函数链接CreateFolder 方法与GetParentFolderName 方法。

快活林资源网 Design By www.csstdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
快活林资源网 Design By www.csstdc.com