Microsoft VBScript 运行时错误 (0x800A004C)路径未找到

<%
Dim objFSO,uploadfolder,uploadfiles,upname,upfilename
'显示上传目录下的文件列表
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Request("filename")<>"" Then objFSO.DeleteFile(Server.MapPath("../upload"&"\"&Request("filename")))
Set uploadFolder=objFSO.GetFolder(Server.MapPat("../upload"&"\"))
Set uploadFiles=uploadFolder.Files
For Each Upname In uploadFiles upfilename="../upload"&"/"&upname.name
Response.Write "<li><a href="""&upfilename&""" target=""_blank"">"&upfilename&"</a>   <a href='?filename="&upname.name&"'>删除文件</a></li>"
Next
Set uploadFolder=nothing
Set uploadFiles=nothing
%>

这是网上找到的读取文件夹内文件名的程序，运行后就出现：
·错误类型：
M

数据库路径设置不对，建议用下面的，很好用
<%
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("stu.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
%>

t uploadFolder=objFSO.GetFolder(Server.MapPat("../upload"&"\"))

应该是 Server.Mappath 你少了一个h 呀,伙计,另外检查一下目录对不对.

完全没问题以下代码

<%
Dim objFSO,uploadfolder,uploadfiles,upname,upfilename
'显示上传目录下的文件列表
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Request("filename")<>"" Then objFSO.DeleteFile(Server.MapPath("../upload"&"\"&Request("filename")))
Set uploadFolder=objFSO.GetFolder(Server.MapPath("../upload"&"\"))
Set uploadFiles=uploadFolder.Files
For Each Upname In uploadFiles
upfilename="../upload"&"/"&upname.name