VBS递归创建多级目录文件夹的方法
作者: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 方法。