Compacta um ou vários arquivos em um único arquivo com extensão .MZP.
Sintaxe
MSCOMPRESS( cArq, [ cDestino ], [ cSenha ] ) –> lSucesso
Ou
MSCOMPRESS( aArquivos, [ cDestino ], [ cSenha ] ) –> lSucesso
| Argumento | Obrigat. | Tipo | Descrição |
| CArq | Sim | C | Nome do Arquivo a ser compactado. |
| aArquivos | Sim | A | Nomes dos arquivos a serem compactados. |
| cDestino | Não | C | Nome do Arquivo destino, caso a extensão seja omitida será assumido .MZP, se não for informado assumirá o mesmo nome do cArq com extensão .MZP ou o nome do 1º. Arquivo no Array aArquivos. |
| cSenha | Não | C | Senha a ser utilizada para criptografar o arquivo. |
Retorno | Descrição |
.T. | A compactação foi executada com sucesso. |
.F. | Erro na compactação, verifique o espaço disponível para compactação. |
Descrição
MSCOMPRESS() compacta os arquivos informados em um único arquivo com extensão default .MZP. O formato é proprietário e multiplataforma.
Caso a senha seja informada apenas com a senha poderemos descompactar os arquivos.
A função para descompactação é a MSDECOMP().
Tanto arquivos no local ( Remote ) como no Servidor são aceitos.
Exemplos
Exemplo 1 à Compacta apenas um arquivo
lRes := MSCOMPRESS( “AP6SRV.EXE”, “AP6SRV.MZP” )
Exemplo 2 à Compacta um diretório com senha
aNome := {}
ADIR( “*.DBF”, aNome )
lRes := MSCOMPRESS( aNome, “ArqComp.MZP”, “SENHA” )