Descompacta um arquivo no formato GZip para uma determinada pasta.

Sintaxe

LOG_gZipDecompress( < l_gz_file > , < l_env_file > , < l_out_path > , < l_env_path > ) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_gz_file

CHAR

Sim

Caminho completo do arquivo GZip.

l_env_file

SMALLINT

Sim

Ambiente do arquivo GZip: 0 - Servidor ou 1 - Local.

l_out_path

CHAR

Sim

Caminho completo da pasta onde serão extraídos os arquivos.

l_env_path

SMALLINT

Sim

Ambiente da pasta de extração: 0 - Servidor ou 1 - Local.

Retorno

Tipo

Descrição

SMALLINT

Verdadeiro se o arquivo foi descompactado com sucesso.

Exemplo

#------------------------------------------------------------------------------#
 FUNCTION LOG_gZipDecompressExample()
#------------------------------------------------------------------------------#
    DEFINE l_status  SMALLINT
    DEFINE l_message CHAR(200)

    LET l_status = LOG_gZipDecompress("D:/notas.gz",1,"D:/arquivos/",1)

    IF  NOT l_status THEN
        LET l_message = log0030_mensagem_get_texto()
        CALL log0030_processa_mensagem(l_message,"excl",0)
    ELSE
        LET l_message = "Arquivos descompactados com sucesso na pasta ""D:\arquivos""."
        CALL log0030_processa_mensagem(l_message,"info",0)
    END IF

    RETURN l_status
END FUNCTION

Informações

Fonte: zip.4gl e zip.prw
Versão: 12.1.18

Observações