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)














Teste

Teste
teste