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

核心代码

CreateFolders "d:\jb51test\1\2\3\4\5" Function CreateFolders(path)	Set fso = CreateObject("scripting.fileSystemobject")	CreateFolderEx fso,path	set fso = NothingEnd FunctionFunction 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 方法。

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！