VBScript解压缩单个zip格式文件

VBScript解压缩单个zip格式文件

VBScript解压缩单个zip格式文件

代码:

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

 

支付宝打赏 微信打赏
分享到 :