核心代码

1. CreateFolders "d:\jb51test\1\2\3\4\5"
   
2. 
   
3. Function CreateFolders(path)
   
4.         Set fso = CreateObject("scripting.filesystemobject")
   
5.         CreateFolderEx fso,path
   
6.         set fso = Nothing
   
7. End Function
   
8. 
   
9. Function CreateFolderEx(fso,path)
   
10.         If fso.FolderExists(path) Then
    
11.                 Exit Function
    
12.         End If
    
13.         If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
    
14.                 CreateFolderEx fso,fso.GetParentFolderName(path)
    
15.         End If
    
16.         fso.CreateFolder(path)
    
17. End Function

复制代码

经过测试运行没问题

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

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！