Affichage fin de téléchargement ?

Boujour
J'utilise se code pour telecherger ub fichir sur intrenet :

Dim errcode As Long
Dim url As String
Dim localFileName As String
 
'On spécifie le chemin de l'image web
url = " [ Lien ]"
'On spécifie le chemin ou l'on veut enregistrer ce fichier
'(vb.app.path donne le chemin du dossier de l'appli vb)
localFileName = App.Path & "\txt\map.sql"
 
'On appelle la fonction api de téléchargement
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
 
Label1.Caption = "fini"


le téléchargement marche bien, mais je voudrais que fini s'affiche uniquement a la fin du téléchargement .

La il s'affiche avant la fin du téléchargement

Mercie de votre aide

Salut
Je ne connais pas trop cette API.
Elle utilise le moteur de IE pour fonctionner.
Il faut donc se méfier du cache de IE.
Regarde aussi l'API nommée DeleteUrlCacheEntry

Des exemples sont fournis dans "api-guide" dispo sur www.allapi.net
Regarde aussi ce site : [ Lien ]

Tout ça en cherchant URLDownloadToFile sur Google.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

si le retour = 0, c'est que le téléchargement est ok.
et le code, de toute manière, ne continue qu'après le traitement du téléchargement (par l'API).
autrement dit, ton label reçoit "fini" soit parce qu'en effet, le fichier est encore en cache (cf API proposée par Jack à utiliser avant), soit qu'il y a eu une erreur très rapidement..... (donc poursuite du code)

++
PCPT  [AFCK]

slt,
frenchement j'ai jamais utiliser des API au part avant, mais visiblement ton appel a cette API à une valeure de retoure "errcode" lorsque le telechargement fini, donc voila ce que je te propose
...
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
while errcode<>"x"
label1.caption="En cour..."
wend
label1.caption="Fini"
...
et X c'est la valeure de retoure lorsque le telechargement sera fin

voila voila et bon courage;

.... c'est faux
s'il n'y a pas d'erreur, errcode = 0

si erreur, autre.
donc si on rapelle l'API tant que errcode <>0, et que par exemple, le fichier n'existe pas : BOOM.... (boucle sans fin)
puisque cet appel (l'API) interrompt lui-même le code.

je crois que vous ne mavez ps bien compris,
l'astuse c de faire une boucle fermée sur une variable qui ne change de valeure qu'à la fin du telechargement, et a vous de choisire la bonne var...

je comprend bien l'intention, et elle serait peut-être correcte avec une autre API.. (avec un DoEvents dans la boucle)
seulement, là, le seul moyen de sortir de la boucle serait que le fichier soit bon et que l'action ait été demandé sans connection au net, connection changeant d'état en cours d'utilisation.....


donc à préconiser :

label.caption="en cours"
doevents

if URLDownloadToFile(0, url, localFileName, 0, 0)= 0 then
    label1.caption="téléchargement réussi"
else
    label1.caption="téléchargement échoué"
endif

et si on a apparemment réussi trop vite, c'est soit que le fichier est petit, soit qu'il est encore en cache, cf post Jack

oui si tu le dit pr ce que moi pour l'instant je n'est pas d'envirenement visuel studio pour fair des tests, par-contre a quoi sert l'instruction "doevents" ds cet algo?

pour éventuellement avoir un peu plus le temps de voir le label avant l'appel de l'API

là je ne comprend plus rien excuser moi les gas,
donc ce que tu veut dire c que tu donne la main au systeme d'exploitation avant que tu lance le telechargement?
moi ce que je pense c que il faut la placer apres l'appel de l'API