winapi - Windows API 提取zip 文件？

Question

在 Windows 资源管理器中，您可以提取压缩文件夹(zip 文件)

是否有 API 或命令行可以使用相同的方法以编程方式提取 zip 文件？

Answer 1

您可以使用此 VBScript 脚本:

'Adapted from http://www.robvanderwoude.com/vbstech_files_zip.html

strFile = "c:\filename.zip"
strDest = "c:\files"

Set objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists(strDest) Then
    objFSO.CreateFolder(strDest)
End If

UnZipFile strFile, strDest

Sub UnZipFile(strArchive, strDest)
    Set objApp = CreateObject( "Shell.Application" )

    Set objArchive = objApp.NameSpace(strArchive).Items()
    Set objDest = objApp.NameSpace(strDest)

    objDest.CopyHere objArchive
End Sub