© 1999-2048 dssz.net 粤ICP备11031372号
[其它] 一个可以自动创建多级目录的函数
说明:<% ‘创建多级目录,可以创建不存在的根目录 ‘参数:要创建的目录名称,可以是多级 ‘返回逻辑值,True成功,False失败 ‘创建目录的根目录从当前目录开始 ‘————————————————— Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateF<weixin_38515270> 上传 | 大小:34kb