Untar a .tar Archive

Untar a .tar archive.

Download: Chilkat .NET Assemblies

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

'  Untar a .tar archive.
Dim tar As New Chilkat.Tar()

'  Any string automatically begins the 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


Dim fileCount As Long

'  Untar into c:/temp/untarDir.  The directory tree(s) contained
'  within the TAR archive will be re-created rooted at this
'  directory.
tar.UntarFromDir = "/Users/chilkat/temp/untarDir"

'  If any filepaths within the Tar archive are absolute,
'  automatically make them relative by removing the first
'  forward or backward slash.  This protects from untarring
'  files to unexpected locations.
tar.NoAbsolutePaths = true

fileCount = tar.Untar("/Users/chilkat/testData/tar/abc123.tar")
If (fileCount < 0) Then
    TextBox1.Text = TextBox1.Text & tar.LastErrorText & vbCrLf
Else
    TextBox1.Text = TextBox1.Text & "Untarred " _
         & fileCount & " files and directories" & vbCrLf
End If