0

如何使用 SevenZipSharp 异步解压缩档案列表并正确处理它们?

这是我正在查看的内容:

Public Class SevenZipVB

Private Shared extractors As New List(Of SevenZipVB)

Private WithEvents _extractor As SevenZip.SevenZipExtractor


''' <summary>
''' Extracts list of archives to their current directory always overwriting
''' </summary>
''' <param name="archives">List of full path names to archives</param>
Public Shared Sub BeginExtraction(ByVal archives As List(Of String))

    For Each archive In archives
        Dim ext = New SevenZipVB(archive)
        extractors.Add(ext)
    Next

    'magically wait for all extraction to finish but allow the calling thread to continue

End Sub

Private Sub New(ByVal archive As String)
    _extractor = New SevenZip.SevenZipExtractor(archive)
    _extractor.BeginExtractArchive(Path.GetDirectoryName(archive))
End Sub

Private Sub extractfinished() Handles _extractor.ExtractionFinished
    _extractor.Dispose()
End Sub

End Class

我想我必须添加某种异步方法,但我不知道它应该是什么样子。有任何想法吗?

4

1 回答 1

0

不要打扰,该库不再受支持,只需使用命令行 7za 或 7zr

于 2014-09-23T23:44:29.843 回答