Descrição
FZip [AS] - Compacta uma lista de arquivos no formato Zip.
|
Sintaxe
| FZip( <cArquivoZip>, <aArquivos>, <cBaseDir>, <cSenha> ) |
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! 😎
