Dim objShellSet objShell = CreateObject("Shell.Application")objShell.NameSpace("D:\tmp").CopyHere objShell.NameSpace("C:\1.zip").Items(), 256Set objShell = Nothing
来源: http://www.phpxs.com/code/1008869/