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)