下载一个 zip 文件并使用后台工作程序将其解压缩

Question

我是 VB.NET 的新手，我在 Google 上搜索了很多，但找不到答案。

我希望程序下载一个 zip 文件并使用 BackgroundWorker 解压缩它。

我有下载代码，但找不到如何使用 BackgroundWorker 解压缩文件。

 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    downloadFile("https://dl.dropboxusercontent.com/u/85542087/test.exe", "test.exe")
    Status.Text = "Downloading file from W4H Servers...."
End Sub
Private Sub downloadFile(ByVal srcPath As String, ByVal destPath As String)

    Dim wClient As New System.Net.WebClient()
    AddHandler wClient.DownloadProgressChanged, AddressOf downloadFile_ProgressChanged

    wClient.DownloadFileAsync(New System.Uri(srcPath), destPath)
    Status.Text = "Downloading file from W4H Servers...."
End Sub

Private Sub downloadFile_ProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
    Status.Text = "Downloading file from W4H Servers...."
    ProgressBar1.Maximum = e.TotalBytesToReceive
    ProgressBar1.Value = e.BytesReceived
    Application.DoEvents()
    If e.ProgressPercentage = 100 Then
        'download completed
        System.Threading.Thread.Sleep(2000)
        Me.Close()
        Form1.Close()
        Process.Start("test.exe")
    End If
End Sub

以上代码将下载我的文件到 .exe 执行路径并从那里运行。所以我想在那里提取并运行它。

压缩包为“test.zip”，其中包含“test.exe”。

Answer 1

你可以使用这个功能：

Imports System.IO

'Declare the shell object
Dim shObj As Object = Activator.CreateInstance(Type.GetTypeFromProgID("Shell.Application"))

Public Sub UnZip()

    'Create directory in which you will unzip your items.
    Directory.CreateDirectory(output-Folder)

    'Declare the folder where the items will be extracted.
    Dim output As Object = shObj.NameSpace((output-Folder))

    'Declare the input zip file.
    Dim input As Object = shObj.NameSpace((path-of-zip-file))

    'Extract the items from the zip file.
    output.CopyHere((input.Items), 4)

End Sub