[QUOTE]<% Set FsoObj=Server.CreateObject("Scripting.FileSystemObject") Set FileList = FsoObj.GetFolder("文件所在文件夹的绝对地址") For Each FileArr In FileList.Files Response.Write(FileArr.Name &"<BR>") Next Set FileList = Nothing Set FsoObj = Nothing %>[/QUOTE]
<% 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"]' 是怎么样的详细点撒