Copying items to Tar/Bzip2 archive

Xceed Zip for .NET contains FileSystem (derived from AbstractFile/AbstractFolder) clases for Tar. However, it only contains FileSystem classes for GZip and not BZip2.

However, our streaming compression component, Xceed.Compression.Formats, contains a BZip2 compressed stream class. Using that, Tar/BZip2 (.Tbz) archives can be created.

C#
VB.NET

static void Example()
{
  Xceed.Tar.Licenser.LicenseKey = "<your ZIN license key>";
  Xceed.Compression.Formats.Licenser.LicenseKey = "<your ZIN license key>";

  AbstractFile tbzFile;

  // Select the Tar-BZip2 file
  tbzFile = new DiskFile( "Example.tbz" );

  // If the Tar-BZip2 file already exists
  if( tbzFile.Exists )
    // Delete it. We want to create a new archive, not update an existing one
    tbzFile.Delete();

  // Create and open the Tar-BZip2 file
  using( Stream stream = tbzFile.CreateWrite() )
  {
    // Wrap the file stream with a BZip2 stream
    using( BZip2CompressedStream bzip2Stream = new BZip2CompressedStream( stream ) )
    {
      // Wrap the BZip2 stream with a StreamFile object so we can feed it to FileSystem calls
      StreamFile streamFile = new StreamFile( bzip2Stream );

      // Create a logical Tar archive around the BZip2 stream file
      TarArchive tar = new TarArchive( streamFile );

      // Select a source folder
      AbstractFolder sourceFolder = new DiskFolder( @"D:\Data" );

      using( AutoBatchUpdate batch = new AutoBatchUpdate( tar ) )
      {
        // Add the files from the source folder to the archive
        sourceFolder.CopyFilesTo( tar, true, true );
      }
    }
  }
}

Private Shared Sub Example()
  Xceed.Tar.Licenser.LicenseKey = "<your ZIN license key>"
  Xceed.Compression.Formats.Licenser.LicenseKey = "<your ZIN license key>"

  Dim tbzFile As AbstractFile

  ' Select the Tar-BZip2 file
  tbzFile = New DiskFile("Example.tbz")

  ' If the Tar-BZip2 file already exists
  If tbzFile.Exists Then
    ' Delete it. We want to create a new archive, not update an existing one
    tbzFile.Delete()
  End If

  ' Create and open the Tar-BZip2 file
  Using stream As Stream = tbzFile.CreateWrite()
    ' Wrap the file stream with a BZip2 stream
    Using bzip2Stream As New BZip2CompressedStream(stream)
      ' Wrap the BZip2 stream with a StreamFile object so we can feed it to FileSystem calls
      Dim streamFile As New StreamFile(bzip2Stream)

      ' Create a logical Tar archive around the BZip2 stream file
      Dim tar As New TarArchive(streamFile)

      ' Select a source folder
      Dim sourceFolder As AbstractFolder = New DiskFolder("D:\Data")

      Using batch As New AutoBatchUpdate(tar)
        ' Add the files from the source folder to the archive
        sourceFolder.CopyFilesTo(tar, True, True)
      End Using
    End Using
  End Using
End Sub