欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-05-03 13:23:02
先检查是否已经存在该目录了,如果存在,则不做任何处理,如果不存在则创建。 希望对各位快速开发有用。 checkfolder.asp <% '*********...
先检查是否已经存在该目录了,如果存在,则不做任何处理,如果不存在则创建。
希望对各位快速开发有用。
checkfolder.asp

<%
'***********************************************************************************************************
'作 者: 赵敏 flash90@sohu.com
'页面名称: 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
%>