分享至
朋友圈
微信
qq空间
qq
微博
复制
Dim objShell Set objShell = CreateObject("Shell.Application") objShell.NameSpace("D:\tmp").CopyHere objShell.NameSpace("C:\1.zip").Items(), 256 Set objShell = Nothing