https://windevdesenvolvimento.blogspot.com/2021/06/dicas-3348-windev-webdev-mobile-windev.html https://youtu.be/495RvqL4j20 Esse Video vai estrear as 10:00 do dia 11/06/2021 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) |