TOTVSTEC

Árvore de páginas

Descompacta um arquivo compactado, no formato Microsiga Zip (extensão .mzp), no diretório informado.

Sintaxe

MsDecomp( < xFile >, [ cDest ], [ cPass ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

xFile

qualquer

Indica o nome do arquivo, no formato MZP (Microsiga Zip), que será descompactado.

X

 

cDest

caractere

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.

 

 

cPass

caractere

Indica a senha para descompactar o arquivo, caso tenha sido compactado com senha.

 

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.), se a descompactação for realizada com sucesso; caso contrário, falso (.F.).

Observações

  • 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.

Exemplos

User Function Exemplo()
  local aNome := {}
  local cRet
  local lRet
  ADir( "*.DBF", aNome )
  cRet := MsCompress( aNome, "ArqComp.MZP", "SENHA" )
  lRet := MsDecomp("ArqComp.MZP", "C:\totvs\protheus", "SENHA")
return

Veja também

  • Sem rótulos