Windev21 Aulas,Estudos e Desenvolvimento: Aula 932 - Windev Zip 1/...

Video Youtube - Se gostou clique aqui para dar um joinha

http://doc.windev.com/en-US/search2.awp?q=zipCreate&mode=user&origin=searchbox

http://doc.windev.com/en-US/?1000003082005&name=zipClose_example

http://doc.windev.com/en-US/?1000003082003&name=zipCreate_example

http://doc.windev.com/en-US/?1000003082008&name=zipAddFile_example
_path_nome_zip is string="E:\aleva\Contador_Mandar\Arquivo.zip"
_arquivo_zip is zipArchive
n_cria_zip is int=zipCreate(_arquivo_zip,_path_nome_zip)
nResAddFile is int =0
IF n_cria_zip=0 THEN
    //colocar os arquivos a ser compactados
        s_nome_arquivo is string="E:\aleva\conferencia.txt"
    //colocar os arquivos a ser compactados
    //adicionando arquivo para zip com diretorio incluido
        nResAddFile= zipAddFile(_arquivo_zip,    s_nome_arquivo, zipDrive)
    //
    //adicionado arquivo somente
        nResAddFile= zipAddFile(_arquivo_zip,    s_nome_arquivo, zipNone)
END
zipClose(_arquivo_zip)