Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace("D:\tmp").CopyHere objShell.NameSpace("C:\1.zip").Items(), 256
Set objShell = Nothing
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
澹台君落