VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

Create Compressed .tgz (.tar.gz) TAR Archive

Demonstrates how to create a compressed TAR archive containing an entire directory tree. This example creates a compressed archive using GZip compression. The typical file extension used is .tgz or .tar.gz.

Download: Chilkat .NET Assemblies

'  Important: It is helpful to send the contents of the
'  tar.LastErrorText property when requesting support.

Dim tar As New Chilkat.Tar()

'  Any string automatically begins a fully-functional 30-day trial.
Dim success As Boolean
success = tar.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & tar.LastErrorText & vbCrLf
    Exit Sub
End If


'  The TAR component will produce a  GNU tar 1.13.x format
'  archive by default.
'  It is also possible to create PAX -- POSIX 1003.1-2001 format
'  or USTAR -- POSIX 1003.1-1988 format.
'  Set the WriteFormat property to "gnu", "pax", or "ustar" to
'  choose the output TAR format:
tar.WriteFormat = "gnu"

'  Add a directory tree to be included in the output TAR archive:
success = tar.AddDirRoot("/Users/chilkat/temp/abc123")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & tar.LastErrorText & vbCrLf
    Exit Sub
End If


'  Create the compressed TAR archive.
'  Note: You may use UNC paths, absolute, or relative paths.
success = tar.WriteTarGz("/Users/chilkat/testData/tar/abc123.tgz")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & tar.LastErrorText & vbCrLf
    Exit Sub
End If


MsgBox("Success.")
 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser