导读：objs="c:\aaa\*"'支持UNC路径 objd="d:\aaa\" '请自行修改上面两个路径 Setobjshell=CreateObject("Scripting.FileSys..
objs = "c:\aaa\*" '支持UNC路径
objd = "d:\aaa\"
'请自行修改上面两个路径
Set objshell = CreateObject("Scripting.FileSystemObject")
objshell.CopyFolder(Objs,objD) '当文件存在时默认进行覆盖操作
objd = "d:\aaa\"
'请自行修改上面两个路径
Set objshell = CreateObject("Scripting.FileSystemObject")
objshell.CopyFolder(Objs,objD) '当文件存在时默认进行覆盖操作
更多文章请关注《万象专栏》
转载请注明出处：https://www.wanxiangsucai.com/read/cv165485