您正在使用 IPV4 [44.221.73.157] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 七夕节 056
2025年 高 考 357
2025年 元 旦 200
2025年 春 节 228
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp中创建多级目录的两段代码
内容摘要: 实现代码一、比较专业看起来'=============================='创建多级目录,可以创建不存在的根目录'参数:要创建的目录名称,可以是多级'创建目录的根目录从当前目录开始'''调用举例''CallCreateMultiFolder('/upload/jumbot/myphoto/')'=========================......
实现代码一、比较专业看起来

'==============================

'创建多级目录,可以创建不存在的根目录

'参数:要创建的目录名称,可以是多级

'创建目录的根目录从当前目录开始

'''调用举例

''CallCreateMultiFolder("/upload/jumbot/myphoto/")

'==============================

FunctionCreateMultiFolder(ByValCFolder)

DimobjFSO,PhCreateFolder,CreateFolderArray,CreateFolder

Dimi,ii,CreateFolderSub,PhCreateFolderSub,BlInfo

BlInfo=False

CreateFolder=CFolder

OnErrorResumeNext

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")

IfErrThen

Err.Clear()

ExitFunction

EndIf

IfRight(CreateFolder,1)="/"Then

CreateFolder=Left(CreateFolder,Len(CreateFolder)-1)

EndIf

CreateFolderArray=Split(CreateFolder,"/")

Fori=0ToUBound(CreateFolderArray)

CreateFolderSub=""

Forii=0Toi

CreateFolderSub=CreateFolderSub&CreateFolderArray(ii)&"/"

Next

PhCreateFolderSub=Server.MapPath(CreateFolderSub)

IfNotobjFSO.FolderExists(PhCreateFolderSub)Then

objFSO.CreateFolder(PhCreateFolderSub)

EndIf

Next

IfErrThen

Err.Clear()

Else

BlInfo=True

EndIf

CreateMultiFolder=BlInfo

EndFunction

上面的是循环

实现方法二、

'自动创建多极目录

'codebyjb51reterry

functioncreateit(path)

dimfsofo,cinfo,thepath,thepatharray

dimi,ii,binfo

binfo=false

thepath=path

setfsofo=createobject("scripting.filesystemobject")

iferrthen

err.clear

exitfunction

endif

thepath=replace(thepath,"\","/")

ifleft(thepath,1)="/"then

thepath=right(thepath,len(thepath)-1)

endif

ifright(thepath,1)="/"then

thepath=left(thepath,len(thepath)-1)

endif

thepatharray=split(thepath,"/")

fori=0toubound(thepatharray)

createfoldersub1=createfoldersub1&thepatharray(i)&"/"

createfoldersub=server.mappath(createfoldersub1)

ifnotfsofo.folderexists(createfoldersub)then

fsofo.createfolder(createfoldersub)

endif

next

iferrthen

err.clear

else

binfo=true

endif

createit=binfo

endfunction

下面的是通过正则实现

'==============================

''创建文件目录(多层)

''使用正则

'==============================

FunctionCreate_N_Folder(save,ByValPath)

DimFso

SetFso=Server.CreateObject("Scripting.FileSystemObject")

IfNotFso.FolderExists(Path)Then

DimregEx

SetregEx=NewRegExp

regEx.Pattern="^(.*)\\([^\\]*)$"

regEx.Global=False

regEx.IgnoreCase=True

save=save&regEx.Replace(Path,"$2")&"|"

Path=regEx.Replace(Path,"$1")

IfCreate_N_Folder(save,Path)ThenCreate_N_Folder=True

SetregEx=Nothing

Else

Ifsave="|"Then

Create_N_Folder=True

Else

DimTemp

Temp=Mid(save,2,Len(save)-2)

IfInStrRev(Temp,"|")=0Then

save="|"

Path=Path&"\"&Temp

Else

DimFolder

Folder=Mid(Temp,InStrRev(Temp,"|")+1)

save="|"&Mid(Temp,1,InStrRev(Temp,"|")-1)&"|"

Path=Path&"\"&Folder

EndIf

Fso.CreateFolderPath

IfCreate_N_Folder(save,Path)ThenCreate_N_Folder=True

EndIf

EndIf

SetFso=Nothing

EndFunction

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:asp中通过addnew添加内容后取得当前文章的自递增ID的

 

下一篇:ASP 下载时重命名已上传文件的新下载文件名的实现代码

发布日期:2024/4/4
手机扫二维码直达本页
发布时间:13:09:15
点  击:12
录  入:伊伊
相关文章
Baidu
YiJiaCMS 7.5.1 build240527(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....