asp生成目录与无限生成多级目录创建

2015-08-12 16:03:40来源:作者:人点击

asp教程生成目录与无限生成多级目录创建
这里提供二款asp目录生成函数,第一款是只能创建一级目录,后一款函数可以支持多目录同时生成。
 

sub efolder(foldername)
dim fso
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(foldername)) then
set fso=nothing
exit sub
else
fso.createfolder(server.mappath(foldername))
end if
set fso=nothing
end sub
===================================================================

sub arrayfolder(path,sep)
dim arraypath,epath,newpath
arraypath = split(path,sep)
newpath=""
for each epath in arraypath
newpath=newpath&epath&"/"
newpath = replace(newpath,"//","/")
efolder newpath
next
end sub

arrayfolder "1/2/3","/"

生成多级目录

'建立目录的程序,如果有多级目录,则一级一级的创建
function createdir(byval localpath)
on error resume next
localpath = replace(localpath,"","/")
set fileobject = server.createobject("scripting.filesystemobject")
patharr = split(localpath,"/")
path_level = ubound(patharr)
for i = 0 to path_level
if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
cpath = left(pathtmp,len(pathtmp)-1)
if not fileobject.folderexists(cpath) then fileobject.createfolder cpath
next
set fileobject = nothing
if err.number <> 0 then
createdir = false
err.clear
else
createdir = true
end if
end function%>

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台