核心代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
CreateFolders "d:\zzvipstest\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 方法。
原文链接：https://blog.csdn.net/piaoyunlive/article/details/89084923
