Untar a .tar Archive

Untar a .tar archive.

Download 32-bit Chilkat TAR ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

'  Untar a .tar archive.
Dim tar As New ChilkatTar

'  Any string automatically begins the 30-day trial.
Dim success As Long
success = tar.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.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 = 1

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