大家帮忙看下！Microsoft VBScript 运行时错误 错误 '800a004c'

有2个是这样的问题！问题一：Microsoft VBScript 运行时错误 错误 '800a004c'
路径未找到

*********.asp，行 133
代码：'读取磁盘文件
set fso=server.CreateObject("Scripting.FileSystemObject")
pathB=trim(Server.mappath("/ad_page"))
set fs=fso.getfolder (pathB)（就是这个。。。。。。。。。）
set fileID=fs.Files
filenum=fileID.count
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
pagenum=pagenum+1
end if
if page> pagenum then
page=1
end if

问题二：Microsoft VBScript 运行时错误 错误 '800a004c'
路径未找到

*****行 136
代码： </tr>
<%
'读取磁盘目录
pathA=trim(Server.mappath("/ad_page"))
set fso=server.CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder (pathA) （就是这个。。。。。。。。）
set fileID=fs.SubFolders
filenum=fileID.count
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
pagenum=pagenum+1