VB.Net 创建一个 zip 文件并从一个 zip 文件中提取

Question

我有一个文件“C:\Users\Wangui Kamande\Desktop\social.txt”，我想将它压缩成一个 .zip 文件，位置为“C:\Users\Wangui Kamande\Desktop”。 我从 Microsoft 网站获得了以下代码，但我不太确定如何去做。 是不是“C:\Users\Wangui Kamande\Desktop\social.txt”文件必须在文件夹中？

mircosoft 网站的代码是：

Private Sub btnCompress_Click(sender As Object, e As EventArgs) Handles btnCompress.Click
        Dim startPath As String = "c:\example\start"
        Dim zipPath As String = "c:\example\result.zip"
        Dim extractPath As String = "c:\example\extract"
        ZipFile.CreateFromDirectory(startPath, zipPath)
        ZipFile.ExtractToDirectory(zipPath, extractPath)
End Sub

Answer 1

您希望 ZipArchive.CreateEntryFromFile 扩展方法将单个文件添加到 zip...

Using zip = ZipFile.Open("C:\Users\Wangui Kamande\Desktop\social.zip", ZipArchiveMode.Create)
    zip.CreateEntryFromFile("C:\Users\Wangui Kamande\Desktop\social.txt", "social.txt")
End Using

要从 zip 中提取单个文件，可以使用 ZipArchiveEntry.ExtractToFile 扩展方法，但您首先必须在 zip 中找到适当的条目。您可以使用 LINQ 按名称查找条目，如下所示：

Using zip = ZipFile.Open("C:\Users\Wangui Kamande\Desktop\social.zip", ZipArchiveMode.Read)
    Dim entry = zip.Entries.Single(Function(x) x.Name = "social.txt")
    entry.ExtractToFile("C:\Users\Wangui Kamande\Desktop\social2.txt", True)
End Using

ExtractToFile 的第二个参数是可选的，指定是否覆盖现有文件。