Microsoft VBScript 运行时错误 (0x800A004C)

错误类型：
Microsoft VBScript 运行时错误 (0x800A004C)
路径未找到
Admin_fso.asp, 第 203 行
下面是那名代码:
<%
end sub


sub files
if dir="" then dir="UpFile"
thisdir=server.mappath("./"&dir&"")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fdir=fs.GetFolder(thisdir)就这一行出错

count=fdir.Files.count

%>请帮忙看看可能是那里问题
急急