Загрузите 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