server.createobject("scripting.filesystemobject") 出错解决思路

server.createobject("scripting.filesystemobject") 出错
PathNameStr = Request.QueryString("PathName")

  set fsofile = server.createobject("scripting.filesystemobject")
  if fsofile.FolderExists(server.mappath(PathNameStr))=false then
  fsofile.CreateFolder(server.MapPath(PathNameStr)

如果文件夹不存在则创建。。
每次一运行 set fsofile = server.createobject("scripting.filesystemobject")这句就报错
提示HTTP/1.1 500 Internal Server Error 

请问下有没有办法解决，或有没有其他替代方法。。

[解决办法]
通常server.mappath(PathNameStr)要写成server.mappath(".")+路径


set fsofile = server.createobject("scripting.filesystemobject") 
写错了吧,是不是应该写成server.createrobject
[解决办法]
应该是没有FSO权限吧。
在运行对话框中输入regsvr32 scrrun.dll注册一下权限