Páginas

▼

sábado, 5 de junho de 2021

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 


Seja Membro do Canal


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







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






às

Nenhum comentário:

Postar um comentário