清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Sub UnZip(ByVal myZipFile, ByVal myTargetDir)
    If NOT fso.FolderExists(myTargetDir) Then
        fso.CreateFolder(myTargetDir)
    End If
    Set objSource = objShell.NameSpace(myZipFile)
    Set objFolderItem = objSource.Items()
    Set objTarget = objShell.NameSpace(myTargetDir)
    objTarget.CopyHere objFolderItem, 256
End Sub

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim objShell,objFolder
Set objShell=CreateObject("Shell.Application")
Set objFolder=objShell.BrowerFolder(0,"choose folder",0,0)
If not objFolder is Nothing then
Unzip "C:\1.zip",objFolder.self.path
End If
Set objFolder=Nothing
Set objShell=Nothing
Set fso=Nothing