Descrição
| Restaura os arquivos e diretórios contidos em um arquivo no formato TAR (Tape ARchive). |
Sintaxe
| tarDecomp( <cTarFile>, <cOutDir>, <@nFilesOut>, <lChangeCase> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cTarFile | Caracter | Indica o nome do arquivo ( com formato TAR ) cujo conteúdo será restaurado | X | ||
| 02 | cOutDir | Caracter | Indica o diretório onde os arquivos, contidos no arquivo TAR, serão restaurados | X | ||
| 03 | nFilesOut | Numérico | Retorna o número de arquivos extraídos na operação | X | ||
| 04 | lChangeCase | Boolean | Indica se colocará o nome dos arquivos em letra minúscula |
Retorno
| Retorno | Tipo | Descrição |
| lRet | Boolean |
Retorna verdadeiro (.T.), se a descompactação for realizada com sucesso; caso contrário, retorna falso (.F.) |
Exemplo
#INCLUDE "TOTVS.CH"
User Function tarDecomp()
Local cNomeArq := ''tarDecomp
Local aItens := {}
aAdd( aItens, "\calculo.txt" )
aAdd( aItens, "\path\calculo.LOG" )
cNomeArq := tarCompress( aItens, "\arquivos.tar" )
If !Empty( cNomeArq )
Conout( 'Compactado com Sucesso' )
If tarDecomp( "\arquivos.tar", "\descompactar" )
Conout( 'Descompactado com Sucesso' )
Endif
Endif
Return( Nil )
Resultado
Informações adicionais
|
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) |
|
Caso seja passado em cTarFile o caminho de algum arquivo no cliente, é gerada uma exceção com a mensagem: "Only path file on server are allowed"; caso seja passado em cOutDir o caminho de alguma pasta no cliente, é gerada uma exceção com a mensagem: "Only path dir on server are allowed" |
|
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 <cTarFile> não exista, será exibida a mensagem "Server File not found on TarDecomp()"; caso não exista <cOutDir>, será exibida a mensagem "Server Directory not found on TarDecomp()" |
|
Caso <cOutDir> 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()" |
|
Os caminhos de cOutDir, cTarFile, e dos arquivos e/ou pastas contidos em cTarFile serão convertidos para letra minúscula. A partir da build 7.00.121227A, os caminhos não serão convertidos para letra minúscula para Logix |
|
A partir da build 7.00.120420A, o comportamento de mudança para letra minúscula, para Linux, pode ser alterado modificando o valor da chave CaseSensitive, na seção General, do arquivo ini do TOTVS | Application Server. Essa mudança impacta outras funções que também tratam arquivos |
|
A partir da build 7.00.131227A foi criado o parâmetro lChangeCase, que se for definido com o valor .T., altera o nome dos arquivos para letra minúscula, e se for .F. não altera o nome dos arquivos. O valor padrão do parâmetro é .T. |
|
Em ambiente Windows, os nomes de arquivos não possuem diferenciação entre maiúsculo e minúsculo, logo, a função conseguirá tratar os arquivos apontados por cOutDir e cTarFile independente do valor definido no parâmetro lChangeCase. Em ambiente Linux ou Mac, o nome dos arquivos respeita a diferenciação |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎