The .NET Framework 4.5 Gets ZIP: Listing 1

Creating a compressed file with System.IO.Packaging.ZIPPackage.

'Get list of files in directory tree from FolderPath (Does not capture an empty folder)
  Dim files() = IO.Directory.GetFiles(FolderPath, "*.*", SearchOption.AllDirectories)
  If FolderPath.EndsWith("\") Then FolderPath = FolderPath.Substring(0, FolderPath.Length - 1)
  Using Zip As Package = ZipPackage.Open(ZipFullFilename, FileMode.OpenOrCreate, FileAccess.ReadWrite)
    For Each item In files
      Dim relFile = item.Substring(FolderPath.Length)
      relFile = relFile.Replace(" "c, "_"c).Replace("\", "/")
      If relFile.StartsWith("/") = False Then relFile = "/" & relFile
      Dim filePart As PackagePart = Zip.CreatePart(New Uri(relFile), _
                Net.Mime.MediaTypeNames.Application.ZIP, Optimization)
      'Read the file into a byte array that can be written to Zip stream
      Dim arrBuffer As Byte() = File.ReadAllBytes(item)
      filePart.GetStream().Write(arrBuffer, 0, arrBuffer.Length)
    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@gmail.com.