帝王谷资源网 Design By www.wdxyy.com

实现代码一、比较专业看起来

    '============================== 
    '创建多级目录,可以创建不存在的根目录 
    '参数:要创建的目录名称,可以是多级 
    '创建目录的根目录从当前目录开始 
    '''调用举例 
    ''Call CreateMultiFolder("/upload/jumbot/myphoto/") 
    '============================== 

    Function CreateMultiFolder(ByVal CFolder) 
        Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder 
        Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo 
        BlInfo = False 
        CreateFolder = CFolder 
        On Error Resume Next 
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
        If Err Then 
            Err.Clear() 
            Exit Function 
        End If 
        If Right(CreateFolder, 1) = "/" Then 
            CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) 
        End If 
        CreateFolderArray = Split(CreateFolder, "/") 
        For i = 0 To UBound(CreateFolderArray) 
            CreateFolderSub = "" 
            For ii = 0 To i 
                CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/" 
            Next 
            PhCreateFolderSub = Server.MapPath(CreateFolderSub) 
            If Not objFSO.FolderExists(PhCreateFolderSub) Then 
                objFSO.CreateFolder(PhCreateFolderSub) 
            End If 
        Next 
        If Err Then 
            Err.Clear() 
        Else 
            BlInfo = True 
        End If 
        CreateMultiFolder = BlInfo 
    End Function

上面的是循环

实现方法二、

'自动创建多极目录
'code by jb51 reterry
function createit(path)
dim fsofo,cinfo,thepath,thepatharray
dim i,ii,binfo
binfo=false
thepath=path
set fsofo=createobject("scripting.filesystemobject")
if err then
err.clear
exit function
end if
thepath=replace(thepath,"\","/")
if left(thepath,1)="/" then
thepath=right(thepath,len(thepath)-1)
end if
if right(thepath,1)="/" then
thepath=left(thepath,len(thepath)-1)
end if
thepatharray=split(thepath,"/")
for i=0 to ubound(thepatharray)
createfoldersub1=createfoldersub1&thepatharray(i)&"/"
createfoldersub=server.mappath(createfoldersub1)
if not fsofo.folderexists(createfoldersub) then
fsofo.createfolder(createfoldersub)
end if
next
if err then
err.clear
else
binfo=true
end if
createit=binfo
end function

下面的是通过正则实现

    '============================== 
    ''创建文件目录(多层) 
    ''使用正则 
    '============================== 

    Function Create_N_Folder(save, ByVal Path) 
        Dim Fso 
        Set Fso = Server.CreateObject("Scripting.FileSystemObject") 
        If Not Fso.FolderExists(Path) Then 
            Dim regEx 
            Set regEx = New RegExp 
            regEx.Pattern = "^(.*)\\([^\\]*)$" 
            regEx.Global = False 
            regEx.IgnoreCase = True 
            save = save & regEx.Replace(Path, "$2") & "|" 
            Path = regEx.Replace(Path, "$1") 
            If Create_N_Folder(save, Path) Then Create_N_Folder = True 
            Set regEx = Nothing 
        Else 
            If save = "|" Then 
                Create_N_Folder = True 
            Else 
                Dim Temp 
                Temp = Mid(save, 2, Len(save) - 2) 
                If InStrRev(Temp, "|") = 0 Then 
                    save = "|" 
                    Path = Path & "\" & Temp 
                Else 
                    Dim Folder 
                    Folder = Mid(Temp, InStrRev(Temp, "|") + 1) 
                    save = "|" & Mid(Temp, 1, InStrRev(Temp, "|") - 1) & "|" 
                    Path = Path & "\" & Folder 
                End If 
                Fso.CreateFolder Path 
                If Create_N_Folder(save, Path) Then Create_N_Folder = True 
            End If 
        End If 
        Set Fso = Nothing 
    End Function

以上就是asp中创建多级目录的两段代码的详细内容,更多关于asp创建多级目录的资料请关注其它相关文章!

标签:
asp中创建多级目录的两段代码

帝王谷资源网 Design By www.wdxyy.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
帝王谷资源网 Design By www.wdxyy.com

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?