<% ‘创建多级目录,可以创建不存在的根目录 ‘参数:要创建的目录名称,可以是多级 ‘返回逻辑值,True成功,False失败 ‘创建目录的根目录从当前目录开始 ‘————————————————— Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateF
直接给大家分享一下软件开发网测试正常可以使用的代码,并且支持多级目录创建
代码一
Function CreateMultiFolder(ByVal CFolder)
Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder
Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo
BlInfo = False
Crea