FZip [AS]
Autor: Eurai Criado: 01/01/2016 Atualizado: 27/07/2021Descrição
| Compacta uma lista de arquivos no formato Zip. |
Sintaxe
| FZip( |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cArquivoZip | Caracter | Indica o nome do arquivo final compactado zip | X | ||
| 02 | aArquivos | Array | Lista de arquivos que serão compactados | X | ||
| 03 | cBaseDir | Caracter | Indica o diretório base para não incluir dentro do arquivo compactado | |||
| 04 | cSenha | Caracter | Informar uma senha para gerar um arquivo compactado criptografado |
Retorno
| Retorno | Tipo | Descrição |
| nRet | Numérico |
Retorna 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
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 |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎