TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Compacta uma lista de arquivos no formato Zip.

Sintaxe

FZip( < cArquivoZip >, < aArquivos >, [ cDiretorioBase ], [ cSenha ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cArquivoZip

caractere

Indica o nome do arquivo final compactado zip .

X

 

aArquivos

vetor

Lista de arquivos que serão compactados.

X

 

cDiretorioBase

caractere

Indica o diretório base para não incluir dentro do arquivo compactado.

 

 

cSenha

caractere

Informar uma senha para gerar um arquivo compactado criptografado

 

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna 0 zero se conseguir compactar ou diferente de 0 zero em caso de erro.

Observações

  • Lista de arquivos pode ser tanto a partir do Rootpath como um caminho completo para ser executado no cliente.
  • A entrada cBaseDir serve para não incluir a pasta informada no baseDir dentro do zip, por exemplo vc tem uma lista de arquivos "tocompress\arq1.txt", "tocompress\arq2.txt" e não deseja que o arquivo zip contenha a pasta "tocompress", apenas os arquivos, portanto cBaseDir deve ser informado como "tocompress\"
  • Função disponível apenas para builds superiores a 7.00.131227

Exemplos

Exemplo 1
User Function zip ()

  files := {"\testing\gps.bmp","\testing\receita.bmp"}

  nret := FZip("\imagens.zip",files,,)
  if nret!=0
    conout("Não foi possível criar o arquivo zip")
  else
    conout("Arquivo zip criado com sucesso")
  endif

  nret := FZip("\testing\imgs.zip",files,"\testing\","123456")
  if nret!=0
    conout("Não foi possível criar o arquivo zip")
  else
    conout("Arquivo zip criado com sucesso")
  endif

Return

Veja também

  • Sem rótulos