TarDecomp

TarDecomp ( < cArquivoTar>, < cDirSaida>, [ @nFilesOut] ) --> lDecompress

(logico)
• Retorna verdadeiro (.T.), se a descompactação for realizada com sucesso; caso contrário, falso (.F.)

• Esta função somente extrai arquivos agrupados no formato TAR.
• Esta função trabalha somente com arquivos e diretórios localizados no servidor (a partir do rootPath do ambiente).
• Antes de extrair o arquivo, verifique o espaço em disco, disponível na unidade de disco, e/ou as permissões para criação e alteração de arquivos e diretórios.
• Caso <cArquivoTar> não exista, será exibida a mensagem "Server File not found on TarDecomp()"; caso não exista <cDirSaida>, será exibida a mensagem "Server Directory not found on TarDecomp()".
• Caso <cDirSaida> seja uma string vazia, é gerada uma exceção com a mensagem: "Invalid empty target path for TarDecomp".
• Se nada for extraído do arquivo, será exibida a mensagem: "No files extracted on TarDecomp()".

user function exemplo()
local aItens := {}
local tarFile := ""
local lTarDecompress := .F.
  aAdd( aItens, "\file1.txt" )
  aAdd( aItens, "\file2.txt" )
  aAdd( aItens, "\file3.txt" )
  aAdd( aItens, "\testdir\folderA" )
  aAdd( aItens, "\testdir\folderB\file1-folderB.txt" )
  aAdd( aItens, "\testdir\folderB\file2-folderB.txt" )
  aAdd( aItens, "\testdir\folderB\file3-folderB.txt" )
  // cria o arquivo tar
  tarFile := tarCompress( aItens, "\testdir\file.tar" )
  // restaura o conteúdo do tar
  lTarDecompress := tarDecomp( "\testdir\file.tar", "\testdir2" )
return