Fso 用虚拟路径 复制 文件夹下的所有文件的asp 代码

给你个FSO操作类，以后想进行什么操作调用这个类就可以实现了，先看看吧。FSO的操作功能都有 很全面的。
http://hi.baidu.com/w81363655/blog/item/cc0e81b3b29b16aed8335a4c.html

而且代码很简洁，调用时很方便。

<%
Function CopyMyFolder(FolderName,FolderPath)
sFolder=FolderName
oFolder=FolderPath
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在
if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在
fso.copyfolder sFolder,oFolder
Else '目标文件夹如果不存在就创建
CreateNewFolder = Server.Mappath(FolderPath)
fso.CreateFolder(CreateNewFolder)
fso.copyfolder sFolder,oFolder
End if
CopyMyFolder="复制文件夹["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!"
Else
CopyMyFolder="错误,原文件夹["