objs = "c:\aaa\*" '支持UNC路径
objd = "d:\aaa\"
'请自行修改上面两个路径
Set objshell = CreateObject("Scripting.FileSystemObject")
objshell.CopyFolder(Objs,objD) '当文件存在时默认进行覆盖操作