18,125
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
'UnZip "C:\test.zip" into the folder "C:\test1"
Extract "E:\VPN\SogouAcc_20131023152913.zip", "E:\VPN\test"
'Extract "C:\test.cab" into the folder "C:\test2"
'Extract "C:\test.cab", "C:\test2"
Sub Extract( ByVal myZipFile, ByVal myTargetDir )
Dim intOptions, objShell, objSource, objTarget
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(myZipFile).Items
Set objTarget = objShell.NameSpace(myTargetDir)
intOptions = 20
objTarget.CopyHere objSource, intOptions
Set objSource = Nothing
Set objTarget = Nothing
Set objShell = Nothing
End Sub