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

                                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