清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace("D:\tmp").CopyHere objShell.NameSpace("C:\1.zip").Items(), 256
Set objShell  = Nothing