请教高手，关于fso的问题！！

<%
    Function GetPP
    dim s
    s=Request.ServerVariables("path_translated")
    GetPP=left(s,instrrev(s,"\",len(s)))
             End function
             if sPP="" then sPP=GetPP
             if right(sPP,1)<>"\" then sPP=sPP&"\"
             set fso=server.createobject("scripting.filesystemobject")
             Set f = fso.GetFolder(sPP)
             Set fc = f.SubFolders
             i=1
                        i2=1
             For Each f in fc
%>
不知代码那里出错，运行显示
Microsoft VBScript 运行时错误 '800a004c'

路径未找到

\wwwroot\admin\SpaceSize.asp, line 112