金沙学府业主论坛,福建社区,云南国旅
核心代码
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 方法。
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
网友评论