Function之创建多层目录

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