Microsoft VBScript 运行时错误 错误 '800a004c'

[googss]

Microsoft VBScript 运行时错误 错误 '800a004c'

路径未找到

/fun/fso.asp，行 123



'***********************************************
'函数名：MoveFileAs
'作 用：把原始文件移动到指定文件包并重命名
'参 数：FileUrl：原始文件路径/文件名，为网站下的相对路径
' FileUrlTo：目标文件路径/文件名，为网站下的相对路径
'返回值：MoveFileAs (0表示源文件不存在而移动失败，1表示移动成功)
'***********************************************
function MoveFileAs(FileUrl,FileUrlTo)
FiLePaTh = FileUrl

if instr(FileUrl,":/")=0 and instr(FileUrl,":\")=0 then FiLePaTh = Server.MapPath(trim(FileUrl))
FiLePaThTo =FileUrlTo
if instr(FileUrlTo,":/")=0 and instr(FileUrlTo,":\")=0 then FiLePaThTo = Server.MapPath(trim(FileUrlTo))

Set fso = CreateObject("Scripting.FileSystemObject")
MoveFileAs=0
If Fso.FileExists(FiLePaTh) = True Then
Set f2 = fso.GetFile(FiLePaTh)
f2.Move (FiLePaThTo) -----------------------------------------123 行
MoveFileAs=1
end if
set f2=nothing
set fso=nothing
End function
%>


------------------------


代码是别人给的。 应该是正确完整的。 到我服务器上就不可以用 。

我估计是 缺少了 什么插件。 或者 没有 写入权限 之类的。

那位大哥， 可以给与解答啊。

谢谢了

[小逗狗]

你传递的参数的值到底对不对，也就是FileUrlTo 的值，应该不是少什么插件，还是传递的值有问题，找不到你要移动的文件

[浪尖赏花]

800A004C:路径未找到

[oywkkai]

[Quote=引用 1 楼 wlwqw 的回复:]
你传递的参数的值到底对不对，也就是FileUrlTo 的值，应该不是少什么插件，还是传递的值有问题，找不到你要移动的文件
[/Quote]
应该是的 你IIS里面启用父路径没

[googss]

启用 父路径了 。

[超维电脑科技]

VB 不懂
顶起等高手

[黑心]

调用函数时
FileUrl,FileUrlTo的值（路径）有问题。请查证。

[googss]

解决了。 上传文件 里 路径设置错误了。