VB.NET解壓縮ZIP文件沒有滯後

Question

請幫助Stackoverflow社區。我需要解壓ZIP文件而不會阻塞應用程序。

Using zip1 As ZipFile = ZipFile.Read(".\packageData\" + zip.Text + ".zip") 
      Dim Z As ZipEntry 

      For Each Z In zip1 
       Z.Extract(".\apps\", ExtractExistingFileAction.OverwriteSilently) 
      Next 
     End Using 

Answer 1

在自己的線程中運行該解壓縮操作。例如，使用任務（在Windows窗體應用程序中）：

Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim worker As New Task(Sub() 
          Using zip1 As ZipFile = ZipFile.Read(".\packageData\" + zip.Text + ".zip") 
          Dim Z As ZipEntry 

          For Each Z In zip1 
           Z.Extract(".\apps\", ExtractExistingFileAction.OverwriteSilently) 
          Next 
          End Using 
         End Sub) 
    worker.Start() 
    Await worker 
    MsgBox("Done.") 
End Sub