V1.5 : INET ET BARRE DE PROGRESSION

Signaler
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4415-v1-5-inet-et-barre-de-progression

Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006

salut tous le monde, un truc bizard m'arrive... quand j'essaie de le copier ailleur que le chemin : "C:\ " il ne me le copie pas... quelqu'un sait-il pourquoi????
@+ Sator
Messages postés
193
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
29 juillet 2015

Voici la fonction qui permet de récupérer la taille d'un fichier (le controle inet passe par le protocole http donc bien le paramétrer.

Public Function Taille(URL As String) As Long
Dim StrHeader
StrHeader = ""
Inet1.URL = URL
Inet1.Execute , "GET"
'Fait patienter le control Inet jusqu'a ce qu'il
'ait terminé ses taches
While Inet1.StillExecuting
DoEvents
Wend
'Cherche la taille
StrHeader = Inet1.GetHeader("Content-Length")
Taille = Val(StrHeader)
End Function
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
non le truc c d utiliser la commande size de inet!!! sinon ce code ser a rien!!!!!!!!! voila mon code :
Download avec progressbar : http://www.vbfrance.com/article.aspx?Val=8628
Upload avec progressbar : http://www.vbfrance.com/article.aspx?Val=8629
Messages postés
78
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
7 février 2006

pour la taille du fichier ya un truk ché plu komen avec les headers kan tenvoies une requete...
Afficher les 10 commentaires