如何从zip文件中获取单个文件？

Question

我想在VB.NET中获得.zip文件中的一个文件。我不需要提取所有.zip文件，只需要一个文件。

我正在使用框架4.5。

Answer 1

的.NET Framework 4.5已经ZipFile类可为你做这个。此代码应该让你开始：

Dim zipPath As String = "Sample.zip" 
Using archive = ZipFile.Open(zipPath, ZipArchiveMode.Read) 
    Dim entry = archive.GetEntry("MyFile.pdf") 
    Using reader As New BinaryReader(entry.Open()) 
    System.IO.File.WriteAllBytes("MyFile.pdf", ReadAllBytes(reader)) 
    End Using 
End Using 

ReadAllBytes()是提取从二进制流中的所有字节的一个辅助方法：

Public Shared Function ReadAllBytes(reader As BinaryReader) As Byte() 
    Const bufferSize As Integer = 4096 
    Using ms As New MemoryStream() 
     Dim buffer(bufferSize) As Byte 
     Dim count As Integer 
     Do 
      count = reader.Read(buffer, 0, buffer.Length) 
      If count > 0 Then ms.Write(buffer, 0, count) 
     Loop While count <> 0 

     Return ms.ToArray() 
    End Using 
End Function 

确保您使用.NET Framework 4.5或以上，你已包括对System.IO.Compression和System.IO.Compression.FileSystem的引用。

Answer 2

尝试用这个代码的DotNetZip

Using zip As ZipFile = ZipFile.Read(ExistingZipFile) 
    Dim e As ZipEntry = zip("DocumentToFind.txt") 
    e.Extract(OutputStream) 
End Using 

的帮助，否则，你可以以这种方式使用ZipArchiveClass

Using zip As ZipArchive = ZipFile.Open(zipfile, ZipArchiveMode.Read) 
Dim file = zip.Entries.Where(Function(x) x.Name = "fileToFind") 
If file IsNot Nothing Then 
    file.ExtractToFile("yourFile") 

End If 

末使用

Answer 3

这将允许您通过线

Dim zipPath As String = "ZIP FILE LOCATION" 
     Using zipStream = New FileStream(last_pafx23_open, FileMode.Open) 
      Using archive = New ZipArchive(zipStream, ZipArchiveMode.Read) 
       For Each ent In archive.Entries 
        MsgBox(ent.ToString) 
        Using stream = ent.Open() 
         Using reader = New StreamReader(stream) 
          While Not reader.EndOfStream 
           MsgBox(reader.ReadLine) 
          End While 
         End Using 
        End Using 
       Next 
      End Using 
     End Using 

Answer 4

读从一个zip线txt文件跳过BinaryReader在W/ReadAllBytes（）辅助函数，使用ExtractToFile（）代替：

Imports System.IO.Compression 

Using archive = ZipFile.Open("Sample.zip", ZipArchiveMode.Read) 
    Dim entry = archive.GetEntry("MyFile.pdf") 
    If entry IsNot Nothing then entry.ExtractToFile("MyFile.pdf") 
End Using 

仍当然需要参考System.IO.Compression和System.IO.Compression.FileSystem。