您现在的位置是：网站首页> 编程资料编程资料
VBS递归创建多级目录文件夹的方法_vbs_
2023-05-25
438人已围观
简介 VBS递归创建多级目录文件夹的方法_vbs_
核心代码
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 方法。
