原帖是“nioka”发布的，但是因为使用了回复帖，而现在被关闭了。导致许多人无法看到修改方法，特意复制贴上来。
把ueditor/asp/uploader.class.asp里面的CheckOrCreatePath函数注释掉，然后替换成以下代码，然后刷新再试。
- Public Function CreateDir(ByVal crDirname)
- Dim M_fso
- CreateDir=False
- Set M_fso = CreateObject("Scripting.FileSystemObject")
- If (M_fso.FolderExists(crDirname)) Then
- CreateDir=False
- Else
- M_fso.CreateFolder(crDirname)
- CreateDir=True
- End If
- Set M_fso = Nothing
- End Function
- Function CheckOrCreatePath(byval LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建
- on error resume next
- LocalPath = replace(LocalPath,"\","/")
- set FileObject = server.createobject("Scripting.FileSystemObject")
- patharr = split(LocalPath,"/")
- path_level = ubound(patharr)
- for i = 0 to path_level
- if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
- cpath = left(pathtmp,len(pathtmp)-1)
- if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath
- next
- set FileObject = nothing
- if err.number<>0 then
- CreateDIR = false
- err.Clear
- else
- CreateDIR = true
- end if
- End Function
当前位置：
支持(0) | 
反对(0)
顶端 
底部
![电子邮件:[ ygr1971@163.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
![QQ号码:[ 452331788 ]](http://bbs.kesion.com/club/images/qq.gif){kind=small}
