The .NET Framework 4.5 Gets ZIP: Listing 2

Extracting a compressed file with System.IO.Packaging.Package.

Using pkgFile As Package = Package.Open(ZipFullFilename, FileMode.Open, FileAccess.Read)
    For Each pkgPart As PackagePart In pkgFile.GetParts()
      Dim filename As String = Path.Combine(FolderPath, 
	      pkgPart.Uri.OriginalString.Replace("/", "\").Substring(1))
      Dim dirName As String = IO.Path.GetDirectoryName(filename)
      If Not IO.Directory.Exists(dirName) Then IO.Directory.CreateDirectory(dirName)
      Using stmSource As Stream = pkgPart.GetStream(FileMode.Open, FileAccess.Read)
        Using stmDestination As Stream = File.OpenWrite(filename)
          Dim arrBuffer(10000) As Byte
          Dim intRead As Integer
          intRead = stmSource.Read(arrBuffer, 0, arrBuffer.Length)
          While intRead > 0
            stmDestination.Write(arrBuffer, 0, intRead)
            intRead = stmSource.Read(arrBuffer, 0, arrBuffer.Length)
          End While
        End Using
      End Using
    Next
  End Using

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at joekunk@ajboggs.com.