Microsoft VBScript 运行时错误 错误 '800a004c'
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
%>
------------------------
代码是别人给的。 应该是正确完整的。 到我服务器上就不可以用 。
我估计是 缺少了 什么插件。 或者 没有 写入权限 之类的。
那位大哥, 可以给与解答啊。
谢谢了