使用函数自动生成n层目录

先检查是否已经存在该目录了，如果存在，则不做任何处理，如果不存在则创建。
希望对各位快速开发有用。
checkfolder.asp

<%
'***********************************************************************************************************
'作 者: 赵敏 [e-mail]
'页面名称: createfolder.asp
'页面功能: 生成n层目录的文件夹
'使用方法: 调用checkfolder()函数,例如: checkfolder(path)
'传入参数: 即将上传的文件的相对路径,例如: path = "./upload/bbb/ccc/ddd"
'缺 点： 必须在参数path里面带上upload文件夹
'***********************************************************************************************************
sub checkfolder(path)
splitpath(path)
end sub
sub splitpath(path)
dim road '物理路径
road = server.mappath("./upload")
dim curroad '当前路径
road = split(road,"\",-1,1)
curroad = road(ubound(road))
dim folder,fso
set fso = server.createobject("scripting.filesystemobject")
folder = split(path,"\",-1,1)
for i = 0 to ubound(folder) step 1
if folder(i) = curroad then
j = i
exit for
end if
next
i = j + 1
if i <= ubound(folder) then
dim myroad
myroad = server.mappath(".\upload")
for i = j + 1 to ubound(folder) step 1
createfolder myroad,folder(i)
myroad = myroad &"/"& folder(i)
next
end if
end sub
sub createfolder(mypath,foldername)
dim fso,f
set fso = server.createobject("scripting.filesystemobject")
if not(fso.folderexists(mypath+"/"+foldername)) then
set f = fso.createfolder(mypath+"/"+foldername)
end if
end sub
set fso = nothing
%>