FZip - Resultado

FZip

 

Descrição

Compacta uma lista de arquivos no formato Zip

Sintaxe

FZip( <cArquivoZip>, <aArquivos>, <cBaseDir>, <cSenha> )

 

Parâmetros

ParNomeTipoDescriçãoDefaultObgRef
01cArquivoZipCaracterIndica o nome do arquivo final compactado zipX
02aArquivosArrayLista de arquivos que serão compactadosX
03cBaseDirCaracterIndica o diretório base para não incluir dentro do arquivo compactado
04cSenhaCaracterInformar uma senha para gerar um arquivo compactado criptografado

Retorno

RetornoTipoDescrição
nRetNuméricoRetorna 0 zero se conseguir compactar ou diferente de 0 zero em caso de erro.

Exemplo

#INCLUDE "TOTVS.CH"

User Function FZip()
Local nRet		:= 0
Local aFiles 	:= {} 

aAdd( aFiles, "\path\calculo.csv" )
aAdd( aFiles, "\path\calculo.txt" )
  
nRet := FZip("\arquivos.zip",aFiles)
If nRet <> 0
	Conout("Não foi possível criar o arquivo zip")
Else
	Conout("Arquivo zip criado com sucesso")
Endif

  
Return( Nil )

Resultado

FZip - Resultado

FZip – Resultado

Informação Adicional

Informações Adicionais

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

0 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *