Descrição
| Descompacta um arquivo compactado, no formato Microsiga Zip (extensão .mzp), no diretório informado. |
Sintaxe
| MsDecomp( <cArquivo>, <cPathDestino>, <cSenha> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cArquivo | Caracter | Indica o nome do arquivo, no formato MZP (Microsiga Zip), que será descompactado | X | ||
| 02 | cPathDestino | Caracter | Indica o endereço de destino onde será gravado o arquivo descompactado. Observação: Pode-se informar o caminho do servidor ou o diretório local | |||
| 03 | cSenha | Caracter | Indica a senha para descompactar o arquivo, caso tenha sido compactado com senha |
Retorno
| Retorno | Tipo | Descrição |
| lRet | Boolean |
Retorna verdadeiro (.T.), se a descompactação for realizada com sucesso; caso contrário, falso (.F.). |
Exemplo
#INCLUDE "TOTVS.CH" User Function MsDecomp() local cRet := '' cRet := MsCompress( "\calculo.TXT", "\calculo.MZP" ) If !Empty( cRet ) Conout( 'Compactado com Sucesso' ) If MsDecomp( '\calculo.MZP', '\descompactar' ) Conout( 'Descompactado com Sucesso' ) Endif Endif Return( Nil )
Resultado
Informações adicionais
|
O formato MZP (Microsiga Zip) é proprietário e multiplataforma. |
|
Esta função somente descompacta arquivos compactados pela função MsCompress |
|
Caso a senha seja informada, no parâmetro <cSenha>, apenas com essa senha será possível descompactar o arquivo |
|
Antes de descompactar o arquivo, verifique o espaço em disco, disponível na unidade de disco, para descompactar o arquivo e/ou se existe algum outro na unidade com a propriedade "Read only" |
|
Como MSCompress não armazena no arquivo MZP o nome dos os diretórios onde o(s) arquivo(s) se encontra(m), na extração feita por MsDecomp, caso existam arquivos com o mesmo nome, o último arquivo extraído substituirá o existente |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎