刚才写的一个vbscript创建目录的方法 该方法可一次创建多层目录 不使用递归...

    '创建多层目录的方法
    '所需支持:服务器必须启用FSO和RegExp
    '使用方法:传入一个目录路径 就可以创建
    'By CoderLee 2006.10.10
    Sub LeesCreateFolder(Folder)
        Dim RegEx, arrFolder, thisFolder
        
        '使用正则表达式搜索出每级目录 便于依次创建
        Set RegEx = New RegExp
        RegEx.Pattern = "[^\\]+\\" '搜索所有的非\字符和\ 如d:\a\网络\cc 则结果为 d:\  a\  网络\  cc
        RegEx.IgnoreCase = True
        RegEx.Global = True
        Set arrFolder = RegEx.Execute(Folder)
        
        Set RegEx = Nothing
        
        Set fsoLee = Server.CreateObject("Scripting.FileSystemObject")
        
        For Each SubFolder In arrFolder
            thisFolder = thisFolder & SubFolder '一层一层的推进
            
            If Not fsoLee.FolderExists(thisFolder) Then
                Response.Write(thisFolder)
                fsoLee.CreateFolder(thisFolder) '如果该层不存在则创建
            End If
            
        Next
        Set fsoLee = Nothing
    End Sub

呵呵 没有使用递归 而是使用正则表达式搜索出每层目录 而后依次创建

转载于:https://www.cnblogs.com/coderlee/archive/2006/10/10/525522.html