Linha Logix

Páginas filhas
  • LOG_tarCompress

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (rubens.santos)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Cleane Hermann

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Compacta um arquivo ou uma lista de arquivos no formato TAR.

...

Bloco de código
LOG_tarCompress( < la_files > , < l_env_file > , < l_tar_file > , < l_env_tar > ) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

la_files

ARRAY OF CHAR

Sim

Lista dos arquivos que serão compactados.

l_env_file

SMALLINT

Sim

Ambiente dos arquivos: 0 - Servidor ou 1 - Local.

l_tar_file

CHAR

Sim

Caminho completo do arquivo compactado.

l_env_tar

SMALLINT

Sim

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

Retorno

Tipo

Descrição

SMALLINT

Verdadeiro se

o arquivo foi compactado

os arquivos foram compactados com sucesso.

Exemplo

Bloco de código
languageruby
themeConfluence
linenumberstrue
#------------------------------------------------------------------------------#
 FUNCTION LOG_tarCompressExample()
#------------------------------------------------------------------------------#
    DEFINE l_status  SMALLINT
    DEFINE la_files  ARRAY[3] OF CHAR(300)

    DEFINE l_message CHAR(200)

    LET la_files[1] = "D:/arquivo1.txt"
    LET la_files[2] = "D:/arquivo2.txt"
    LET la_files[3] = "D:/arquivo3.txt"

    LET l_status = LOG_tarCompress(la_files,1,"D:/arquivos.tar",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 compactados com sucesso em ""D:\arquivos.tar""."
        CALL log0030_processa_mensagem(l_message,"info",0)
    END IF

    RETURN l_status
END FUNCTION

Informações

Fonte: zip.4gl e zip.prwAutor: Rubens Dos Santos Filho
Desde: 19/06/2017
Versão: 12.1.18

Observações

...