一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp 建立文件夹(递归)

时间:2010-10-08 编辑:简简单单 来源:一聚教程网

function createfolder(folderpath)
 on error resume next
 err=false
 dim sparfolder
 sparfolder=getparentfolder(folderpath)
 if not ofso.folderexists(sparfolder) then
  createfolder(sparfolder)
 end if
 ofso.createfolder(folderpath)
 if err then
  createfolder=false
 else
  createfolder=true
 end if
end function
function getparentfolder(path)
 dim spath
 spath=path
 if right(spath,1)="" then spath=left(spath,len(spath)-1)
 spath=left(spath,instrrev(spath,"")-1)
 getparentfolder=spath
end function

热门栏目