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%>
更多详细内容请查看:网站建设知识网 |