Private Function CheckOrCreatePath( ByVal path )

        Set fs = Server.CreateObject("Scripting.FileSystemObject")

        Dim parts

        parts = Split( path, "" )

        For Each part in parts

            path = path + part + ""

            If fs.FolderExists( path ) = False Then

                fs.CreateFolder( path )

            End If

        Next

    End Function

修改为

Private Function CheckOrCreatePath( ByVal path )

        Set fs = Server.CreateObject("Scripting.FileSystemObject")

        Dim parts

        Dim root : root = Server.mappath("/") & ""

        parts = Split( Replace(path, root, ""), "" )

        path = root

        For Each part in parts

            path = path + part + ""

            If fs.FolderExists( path ) = False Then

                fs.CreateFolder( path )

            End If

        Next

    End Function

即可正常上传。如下图：

百度编辑器ueditor无法创建目录图片文件夹的解决办法[PHP版本]

西安做网站的公司