cs_guyvdv
Messages postés101Date d'inscriptionsamedi 16 mars 2002StatutMembreDernière intervention19 mai 2011
-
19 juil. 2003 à 16:50
cs_guyvdv
Messages postés101Date d'inscriptionsamedi 16 mars 2002StatutMembreDernière intervention19 mai 2011
-
20 juil. 2003 à 07:29
2003.07.19
Bonjour,
Esse qu'il y a qq qui peu me dire comment connaitre le filesize d'un fichier sur un site internet( en occurence le mien) sans avoir a le telecharger.
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 20 juil. 2003 à 02:14
avec le composant inet tu peu recuperer la taille avec la commande size...
un exemple :
Dim taille As Integer
Dim Fichier As String
Fichier = "test.txt"
'declaration de l url du ftp
Inet1.URL= "ftp://user:password@ftp"
'on lance le size du fichier
Inet1.Execute , "size /" & Fichier
'on fait une boucle en attendant le retour du size
Do While Inet1.StillExecuting = True
DoEvents
Loop
'on recupere la valeur du size
taille = Inet1.GetChunk(1024)
'on refait une boucle tant que inet travaille
Do While Inet1.StillExecuting = True
DoEvents
Loop
'et voila la taille
MsgBox taille & "Ko"