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

脚本专栏 2024/5/10 佚名

3 2 1

幽灵资源网 Design By www.bzswh.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

经过测试运行没问题

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

VBS多级目录,vbs多级文件夹

标签：

VBS多级目录,vbs多级文件夹

幽灵资源网 Design By www.bzswh.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

幽灵资源网 Design By www.bzswh.com

评论“VBS递归创建多级目录文件夹的方法”

暂无评论...