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

代码如下:

'==============================
        '创建多级目录,可以创建不存在的根目录
        '参数:要创建的目录名称,可以是多级
        '创建目录的根目录从当前目录开始
        '''调用举例
        ''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

上面的是循环
下面的是正则


代码如下:

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

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

(0)

相关推荐

  • asp中创建多级目录的两段代码

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

  • PHP创建多级目录的两种方法

    PHP针对目录的创建,有一个专门的函数mkdir():成功,返回true,失败,返回false 函数mkdir有四个参数: path:要创建的目录的名称 mode:权限.默认是0777(最大权限) recursive:设置是否可以创建多级目录(true:可,false:不可) context:文件句柄的环境.context是可修改流的行为的一套选项(很少用到) 下面给大家介绍php创建多级目录的两种方法,具体详情如下所示: 1.使用递归的思想 function mkdirs_2($path){

  • php创建多级目录完整封装类操作方法

    创建多级目录函数中调用创建指定下的指定文件的函数: public function create_dir($dir,$mode=0777) { return is_dir($dir) or ($this->create_dir(dirname($dir)) and mkdir($dir, $mode)); } 创建指定路径下的指定文件,string 需要包含文件名和后缀path(需要包含文件名和后缀),booleanover_write 是否覆盖文件,int 设置时间.默认是当前系统时间time

  • PHP使用mkdir创建多级目录的方法

    本文实例讲述了PHP使用mkdir创建多级目录的方法.分享给大家供大家参考,具体如下: PHP中使用mkdir()可以创建多级目录,相比之前自己一级一级的创建,这个函数非常好用. 下面是php手册上的函数介绍: 复制代码 代码如下: bool mkdir ( string $pathname [, int $mode = 0777 [, bool $recursive = false [, resource $context ]]] ) 返回值为bool类型. 第一个参数:必须,代表要创建的多级

  • PHP递归创建多级目录

    我的第一个感觉就是用递归创建,具体思路如下: function Directory($dir){ if(is_dir($dir) || @mkdir($dir,0777)){ //查看目录是否已经存在或尝试创建,加一个@抑制符号是因为第一次创建失败,会报一个"父目录不存在"的警告. echo $dir."创建成功<br>"; //输出创建成功的目录 }else{ $dirArr=explode('/',$dir); //当子目录没创建成功时,试图创建父目

  • Python实现按当前日期(年、月、日)创建多级目录的方法

    先看实际效果,现在时间2018.4.26 使用python脚本按照年月日生成多级目录,创建的目录可以将系统生成的日志文件放入其中,方便查阅,代码如下: #!/usr/bin/env python #coding=utf-8 import time import os #获得当前系统时间的字符串 localtime=time.strftime('%Y-%m-%d %H:%M:%S',time.localtime(time.time())) print('localtime='+localtime)

  • php创建多级目录与级联删除文件的方法示例

    本文实例讲述了php创建多级目录与级联删除文件的方法.分享给大家供大家参考,具体如下: 创建多级目录 mkdir函数只能创建一级的目录,如果我们想创建多级目录,则需要自己编写函数. <?php $path = "one/two/three/four"; function mkdir_p($path,$mode=0700){ $arr = explode("/",$path); $path = ''; foreach($arr as $v){ $path .=

  • IDEA解决src和resource下创建多级目录的操作

    如果你是想在java目录下创建多级目录,直接新建package,如图输入 然后,取消勾选Compact Empty Middle Package 如图选择 如果是resource下,创建多级目录,应每个目录之间用"/"隔开,这样就不需要再手动一层层目录分别添加了! 网上知道这个方法的很少,是我一个老师教我的,大家可以试试! 如图选择 补充:IDEA创建时未出现src文件夹原因 1.maven创建时中央仓库archetype数量较多,需要等待一段时间才可以加载出来. 2.可以在创建文件时

  • php创建多级目录的方法

    本文实例讲述了php创建多级目录的方法.分享给大家供大家参考.具体实现方法如下: <?php /* 写出一个能创建多级目录的PHP函数 */ function createdirlist($path,$mode){ if (is_dir($path)){ //判断目录存在否,存在不创建 echo "目录'" . $path . "'已经存在"; //已经存在则输入路径 }else{ //不存在则创建目录 $re=mkdir($path,$mode,true);

  • php使用mkdir创建多级目录入门例子

    先介绍一下 mkdir() 这个函数: mkdir($path,0777,true); 第一个参数:必须,代表要创建的多级目录的路径:第二个参数:设定目录的权限,默认是 0777,意味着最大可能的访问权:第三个参数:true表示允许创建多级目录. 举例代码(支持创建中文目录): <?php header("Content-type:text/html;charset=utf-8"); //要创建的多级目录 $path="dai/php/php学习"; //判断

随机推荐