VBS递归创建多级目录文件夹的方法
更新时间：2019年10月20日 21:52:22 作者：piaoyunlive
这篇文章主要介绍了VBS递归创建多级目录文件夹的方法，主要使用的是vbs fso的GetParentFolderName与CreateFolder函数,需要的朋友可以参考下
核心代码
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教程：方法-Close 方法...2006-11-11
本脚本用于修复Windows XP中当最小化程序时，无法在任务栏显示图标的问题2009-05-05
妙用VBScript自制IE工具栏按钮的代码...2007-03-03
运行后当把U盘插入电脑后能够自动把U盘里的PPT偷拷下来。下面用记事本就能实现的批处理或vbs。2009-12-12
如何使用脚本锁定任务栏？...2007-02-02
VBS教程：函数-CByte 函数...2006-11-11
VBS教程：方法-FolderExists 方法...2006-11-11
VBS教程：方法-BuildPath 方法...2006-11-11
最近用VBS模拟POST提交表单，发现遇到检测Referer的页面就不管用了。2011-02-02
VBS教程：方法-Replace 方法...2006-11-11
最新评论