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