请教一个ASP小问题

请问一下有asp编程经验的技术员，以下这代码怎么更改实现整目录复制 现在只能是单个文件。
'检查并创建用户目录
if fso.FolderExists(userdir&username) then
response.redirect("error.asp?error=userfolder")
response.end
else
fso.createfolder(userdir&username)
if rshost("active")="True" then
set afile=fso.getfile(server.MapPath(".")+"\copypage"&"\index1.htm")
afile.copy(userdir&username&"\index.htm")
有朋友说，fso有个.copyfolder方法fso.copyfolder server.MapPath(".")+"\copypage"  userdir&username
但我试了还是不行，请帮忙指点谢谢