(PureBasic) Untar a .tar Archive

Untar a .tar archive.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkTar.pb"

Procedure ChilkatExample()

    ; This example assumes the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    ; Untar a .tar archive.
    tar.i = CkTar::ckCreate()
    If tar.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    fileCount.i

    ; Untar into c:/temp/untarDir.  The directory tree(s) contained
    ; within the TAR archive will be re-created rooted at this
    ; directory.
    CkTar::setCkUntarFromDir(tar, "/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.
    CkTar::setCkNoAbsolutePaths(tar, 1)

    fileCount = CkTar::ckUntar(tar,"/Users/chilkat/testData/tar/abc123.tar")
    If fileCount < 0
        Debug CkTar::ckLastErrorText(tar)
    Else
        Debug "Untarred " + Str(fileCount) + " files and directories"
    EndIf



    CkTar::ckDispose(tar)


    ProcedureReturn
EndProcedure