[VB6] [Réseau] Récupérer la taille d'un fichier avec inet

**pcpunch** · 20/02/2003, 20h10

comment faire pour recuperer la taille d un fichier avec inet, il y a la commande size qui est dans mon code ci dessous, mais comment recuperer la valeur renvoyer par cette fonction (Getchunk mais comment?)

Private Sub Command1_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = 100

Dim sizetotal As String 'definit variable sizetotal nb variable
Dim sizedl As String 'definit variable sizedl nb variable
Dim fdd As String 'definit variable fdd (fichier sur Disque Dur)
Dim fserv As String 'definit variable fserv (fichier sur ftp)
Dim avancement As Byte 'definit variable avancement nb sans virgule

fdd = "c:\im.jpg" 'chemin sur disque dur Source
fserv = "ims.jpg" 'chemin sur ftp Destination

Inet1.AccessType = icUseDefault 'propriete du ftp
Inet1.Protocol = icFTP 'propriete du ftp

Inet1.URL = "ftp://user:pass@ftp.membres.lycos.fr"

Do While Inet1.StillExecuting
Inet1.Execute , "size " & fserv
'sizetotal = Inet1.GetChunk(1024) marche pas?????
DoEvents
Loop
Label1.Caption = sizetotal

sizetotal = 73278 'la c moi qui donne la taille ca marche??
'donc pas erreur ds le code

Inet1.Execute , "get " & fserv & " " & fdd

Do While Inet1.StillExecuting

If Fichier_Existe(fdd) = True Then
sizedl = FileLen(fdd)
ProgressBar1.Value = (sizedl * ProgressBar1.Max) / sizetotal
Else
ProgressBar1.Value = "0"
End If
avancement = ProgressBar1.Value
Label2.Caption = avancement & "%"
DoEvents
Loop
End Sub
Public Function Fichier_Existe(Path As String) As Boolean
If Dir(Path) = "" Then
Fichier_Existe = False
Else
Fichier_Existe = True
End If
End Function

merci de votre aide je comprend plus rien depuis plusieur jours

**Righetto Dominique** · 20/02/2003, 20h55

Bonjour,
Tu as essayé avec les FileSystemObject ?
(cocher la référence Microsoft Scripting Runtime)
On peut travailler sur tous ce qui est fichier, répertoire, lecteur,...
En espérant que cela pourra t'aider

**pcpunch** · 20/02/2003, 21h20

j utilise vb5 peu etre que c du a ca, mon probleme reste entier si qq peu m aider son aide sera la bien venue!!!
Mais je suis certain qu il y a une methode avec getchunk mais je sais pas du tous m en servir l aide de vb5 n est pas tres fournie!!!

**Righetto Dominique** · 20/02/2003, 21h27

Et bien en fait moi je parlais dans VB6, il existe ce que l'on appelle les FileSystemObject qui permettent d'acceder à toutes les propriétés des fichiers, répertoires et lecteurs, regarde dans les références de VB5 si tu ne voit pas "Microsoft Scripting Runtime" (Projet/Références)
ensuite essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim Fso as New FileSystemObject

Si tu trouve cette référence et qu'il reconnait la ligne de code, c'est déja une solution,
Tiens moi au courant

**DarkVader** · 20/02/2003, 21h32

Je sais bien que ce n'est pas ce que tu demandes puisque tu passes par Inet
mais tu peux la récupérer directement dans une structure WIN32_FIND_DATA avec FtpFindFirstFile.

Dans ce cas, la taille du fichier vaut la valeur haute par 1 long + la valeur basse
((H * ((2 ^ 31) - 1)) + B

**pcpunch** · 20/02/2003, 21h32

ok je l ai
mais comment ca marche

**pcpunch** · 20/02/2003, 21h34

je vous remerci pour vos reponse aussi rapide mais je suis novice alors si il etait possible d expliquer en details je vous remercie d avance!!

**Righetto Dominique** · 20/02/2003, 21h34

Je pense qu'il doit y avoir un tutorial sur cela dans developpez

http://rp.developpez.com/vb/tutoriels/faq/

**DarkVader** · 20/02/2003, 21h35

Suis pas sur que tout le monde parle de la même chose !
Le FileSystemObject gère l'accès au fichier du poste
alors que Inet gère ceux récupéré sur le serveur Internet.