DICAS 3348 - WINDEV WEBDEV MOBILE - Windev Criar zip em cima de varios arquivos de um diretorio - Curso Zip 5

------------ Indicezip

Windev Curso Zip /1 ... Criar/Adicionar/Fechar - ZipCreate/ZipAddFile/ZipClose
DICAS 2035 - WINDEV - CURSO ZIP 2 - zipOpen - ZipExtractAll
DICAS 2036 - WINDEV - CURSO ZIP 3 - zipListFile
https://windevdesenvolvimento.blogspot.com/2019/03/dicas-2037-windev-curso-zip-4.html

DICAS 3348 - WINDEV WEBDEV MOBILE - Windev Criar zip em cima de varios arquivos de um diretorio - Curso Zip 5

------------------------------------------------------

https://youtu.be/495RvqL4j20

Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

email : amarildo.matos@gmail.com

Seja Membro do Canal

https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join

Esse Video vai estrear as 10:00 do dia 11/06/2021

DICAS 3348 - WINDEV WEBDEV MOBILE - Windev Criar zip em cima de varios arquivos de um diretorio - Curso Zip 5

https://windevdesenvolvimento.blogspot.com/2021/06/dicas-3348-windev-webdev-mobile-windev.html

https://repository.windev.com/

https://repository.windev.com/resource.awp?file_id=281474976711122;zip-copiar-arquivos-pasta-windev-amarildo

https://help.windev.com/en-US/?3082003&name=zipcreate_function

https://doc.windev.com/en-US/?3082008&name=zipAddFile

https://help.windev.com/en-US/?3082013&name=zipcreateexe_function

https://doc.windev.com/en-US/?3082005&name=zipClose

https://help.windev.com/en-US/?3036058&name=fListFile

https://doc.windev.com/en-US/?3036049

ASSUNTOS

Exemplo: E:\_exemplos_windev_web_mob\windev_amarildo_aula\zip_copiar_arquivos_pasta_windev_v25_amarildo

Vai estar no repositorio windev 

Vamos criar uma windows chamvada zip copiar arquivos 

Vamos criar um botao para criar o zip 

Vamos criar um check box para ver se deseja criar um executavel do zip 

Vamos criar um listbox para ver os arqivos do diretorio 

Vamos fazer o codigo e vamos usar os seguintes comandos 

fExeDir

fListFile

zipCreate

zipAddFile

zipCreateExe

zipClose

--------------- Codigo

sNome_pasta is string=fExeDir()+"\copia\"

sArquivos_retorno is string=fListFile(sNome_pasta+"*.*") // Vamos ver quais arquivos estao nesse diretorio

LIST_arquivos.DeleteAll() // Cria o list box, -: é opcional 

sNome_arquivo_zip is string="arquivo"

zipCreate(sNome_arquivo_zip,fExeDir()+"\"+sNome_arquivo_zip+".zip")

FOR EACH STRING sArquivo_individual OF sArquivos_retorno SEPARATED BY CR 

LIST_arquivos.Add(sArquivo_individual) // adiciona no list box para ver os arquivos é opciona

    zipAddFile(sNome_arquivo_zip,sArquivo_individual,zipDrive)

END

IF CBOX_criar_Executavel=True THEN

NOME_ARQUIVO_eXE is string=fExeDir()+"\"+sNome_arquivo_zip+".exe"

zipCreateExe(sNome_arquivo_zip,NOME_ARQUIVO_eXE,zipCurrentDirectory)

END

zipClose(sNome_arquivo_zip)

---

---

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

---