核心代码
CreateFolders "d:\jb51test" 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递归创建多级目录文件夹的方法
转载请保留出处和原文链接:https://www.cnhackhy.com/17320.htm