希望对各位快速开发有用。
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
%>
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！