Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace("D:\tmp").CopyHere objShell.NameSpace("C:\1.zip").Items(), 256
Set objShell = Nothing
转载于:https://my.oschina.net/u/558276/blog/63016