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 批量修改文件,bat 批处理文件调用执行vbs,并在cmd窗口打印返回值(vbs运行结果)
使用vbs 脚本对工作目录下的字符串进行替换并统计被修改的文件数主调的批处理方法将捕捉该vbs脚本运行后的结果并打印在cmd窗口。2011-09-09
最新评论