https://youtu.be/8IBcU-guQfQ https://windevdesenvolvimento.blogspot.com/2019/03/dicas-2035-windev-curso-zip-2-zipopen.html // sBaixar_arquivo is string="c:\temp\teste.rar" IF fFileExist(sBaixar_arquivo)=True THEN zipOpen("ArquivoRar",sBaixar_arquivo) zipExtractAll("ArquivoRar","c:\temp\",zipOverwrite) Info("Arquivo Descompactado") ELSE Info("arquivo nao encontrado") END |