asp 建立文件夹（递归）

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