telecharge.Initialize("",Me)
telecharge.Download(urlbdd)
MessageInit.Text="Veuillez patienter..."&CRLF&"Téléchargement des données"
Wait For (telecharge) JobDone(telecharge As HttpJob)
If telecharge.Success Then
MessageInit.Text="Installation des données"
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "bdd.zip", False)
File.Copy2(telecharge.GetInputStream, out)
out.Close
MessageInit.Text="Vérification des données"
Dim Var() As Byte = "pass".GetBytes("ISO-8859-1")
Arc.DecryptZipWithArray(Var, False)
Arc.UnZip(File.DirInternal & "/bdd.zip", File.DirInternal,"Archiver")
File.Delete(File.DirInternal,"bdd.zip")
telecharge.Release