Question

ASP问题 Microsoft VBScript 运行时错误 (0x800A0046)

请问下面这段代码错在哪里？
<%
dim fso
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath("\folder")) then
fso.movefolder server.mappath("folder"),server.mappath("/web")
else
response.write "folder文件夹不存在"
end if
set fso=nothing
%>

Answer 1

你条件写反了
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(Server.MapPath(folder))) then
'判断如果存在就不做处理
else
'判断如果不存在则建立新文件夹
fso.CreateFolder(Server.MapPath(folder))
end if

Answer 2

fso.movefolder server.mappath("folder"),server.mappath("/web")

感觉是这里，你两句代码写在一行，而且用逗号分隔，asp中，似乎没有这样的语法
个人看法，仅供参考