Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
MsDecomp
MsDecomp

Função: MsDecomp

Descompacta

...

um

...

arquivo

...

compactado,

...

no

...

formato

...

Microsiga

...

Zip

...

(extensão

...

.mzp),

...

no

...

diretório

...

informado.

Sintaxe

Bloco de código
collapsefalse
MsDecomp( <
cArquivo>
 xFile >, [
cPathDestino
 cDest ], [
cSenha
 cPass ] )
--> lRet

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

MsDecomp( cPatch, cRootPath+"deploy" )
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
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