Descrição
MsDecomp [AS] - 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! 😎
