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

                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