Histórico da Página

#------------------------------------------------------------------------------#
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