<%
Set FsoObj=Server.CreateObject("Scripting.FileSystemObject")
Set FileList = Server.MapPath("想对路径")
For Each FileArr In FileList.Files
Response.Write(FileArr.Name &"<BR>")
Next
Set FileList = Nothing
Set FsoObj = Nothing
%>
为什么出错错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: '[string: "E:\wwwroot\常用代码\ly"]' 是怎么样的详细点撒