'compresion descompresion tar...

http://www.gambas-es.org/viewtopic.php?f=6&t=2831&highlight=tar
http://bazaar.launchpad.net/~sebikul/mundus/trunk/view/head:/.src/Backup.module#L51
Autor: sebikul 

'comprimir:
Private Function Tar(Path As String, Dest As String) As Boolean

  If Dest Not Ends ".tar.gz" Then Dest &= ".tar.gz"
  If Exist(Dest) Then Return False

  Debug (Subst("Compressing &1 at &2", Path, Dest))

  Shell Subst("tar cz -C &3 -f &1 &2", Shell(Dest), Shell(Path), User.Home) Wait

  Return (Process.LastValue = 0)


End


-----------------------------------
Public Function Restore(sBackup As String, sDest As String) As Integer

  If Not Me.HasTar Then Return

  If Not Exist(sBackup) Then Return RESTORE_FAILED

  If Exist(User.Home &/ sDest) Then Return RESTORE_EXIST

  'Debug (Subst("Restoring  &1 at &2", BackupArchive, User.Home &/ Location))
  Shell Subst("tar -C &2 -x -f &1", Shell(sBackup), Shell(User.Home)) Wait

  If Process.LastValue Then Return RESTORE_FAILED

  Return RESTORE_OK

End