Récuperer la taille d"un fichier sur un serveur ftp

**johnson95** · 03/10/2006, 11h44

Bonjour,

j'ai un code source permettant d'envoyé un fichier vers un serveur FTP mais je n'arrive pas à implanter une barre de progression pcq la propriété GETCHUNK me renvoit ""!!

Merci de votre aide

Voici mon code source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Dim taille, pourcent As Integer
Dim fic_source, fic_destination As String
 
fic_source = "version"
'Fichier a telecharger.
fic_destination = "test"      'Fichier de destination.
 
With Inet1
    .Protocol = icFTP
'Declaration protocole.
    .url = "ftp://81.48.100.217"     '"ftp://user:pass@serverftp" 'le ftp.
    .UserName = "testing"
    .password = "win"
End With
 
 
lblinfo.Caption = "Connexion en cour..."
 
Inet1.Execute , "SIZE" & fic_source    
 
 
    Do Until Inet1.StillExecuting = False    
        DoEvents
    Loop
 
 
    taille = Inet1.GetChunk(512) 'Recuperation de la taille dans taille.
 
        pb.Value = 0 'Definition de la valeur minimum.
        pb.Max = taille 'Definition de la valeur maximum.
 
 
        Inet1.Execute , "get " & fic_source & " " & fic_destination
 
    Do Until Inet1.StillExecuting = False     
        On Error Resume Next
        DoEvents
        pb.Value = FileLen(fic_destination)   
        pourcent = (pb.Value / taille) * 100    
 
        Label1.Caption = pourcent & "%" 'Affichage du % du telechargement
 
    Loop
 
       Inet1.Execute , "close "
 
    End If

**avigeilpro** · 03/10/2006, 12h31

Je ne connais pas le control Inet mais Getchunk te sert à réccupérer la taille du fichier qui est sur ton disque ?

**johnson95** · 03/10/2006, 12h59

En fait je ne gere pas trop getchunk mais d'apres les détails que j'ai vu il permet de connaitre la taille d'un fichier..(pas forcement sur le DD)

**ThierryAIM** · 03/10/2006, 13h01

il t'en manque un petit morceau :

Code :

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

Inet1.Execute , "SIZE /" & fic_source

**johnson95** · 03/10/2006, 13h31

Merci mais j'ai deja essayé avec le slash mais ca ne fonctionne toujours pas ...

Je ne comprend pas pourquoi taille = ""

**johnson95** · 03/10/2006, 13h50

On m'a fourni une réponse :

Pour la fonction taille = Inet1.GetChunk(1024) qui retourne ( "" ), En passant par le ftp (prompt) on s apercoit que la plupart des providers n autorisent plus la commande size.

Mais comment peut -on faire alors pour connaitre la taille envoyé et utilisé une progresse bar ?

Avez vous une idée ?

**Delbeke** · 03/10/2006, 17h03

En n'utilisant la commande LIST de ftp peut être.
On doit recevoir en retour la liste des fichiers contenu dans la directory courante avec date et taille. Mais çà implique un peu plus qu'un simple inet

Tu peut essayer ce composant si le coeur t'en dit
http://www.developpez.net/forums/sho...d.php?t=188815

**johnson95** · 03/10/2006, 17h34

C'est la derniere version :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Dim taille As Variant 
Dim pourcent As Integer 
Dim fic_source, fic_destination As String 
 
 
fic_source = "c:\2.bmp" 'fichier a uploader" 
fic_destination = "fichier" 'fichier de destination" 
pb.Min = 0 
pb.Max = FileLen(fic_source) 
With Inet1 
.protocol = icFTP 'declaration protocole 
.URL = "ftp://81.249.XXX.XX" 'le ftp 
.username = "*****" 
.password = "*****" 
End With 
 
 
Inet1.Execute , "put " & fic_source & " /" & fic_destination 'envoie du 
fichier 
 
 
Inet2.URL = Inet1.URL 'initialise inet2 : mm url 
Inet2.username = Inet1.username 'initialise inet2 : mm username 
Inet2.password = Inet1.password 'initialise inet2 : mm password 
Inet2.protocol = Inet1.protocol 'initialise inet2 : mm protocol 
 
 
Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de 
inet1 
On Error Resume Next 
    If Inet2.StillExecuting = False Then 'si inet2 n'est pas actif 
 
 
        Inet2.Execute , "size /" & fic_destination 'demande la taille 
du fichier sur le ftp 
        Do Until Inet2.StillExecuting = False 'boucle pendant le 
demande inet2 
        DoEvents 
        Loop 
 
 
        taille = Inet2.GetChunk(1024) 'recuperation du size dans taille 
        Do Until Inet2.StillExecuting = False 'boucle pendant le 
demande inet2 
        DoEvents 
        Loop 
 
 
       'affichage de la progressbar 
 
 
       pb.Value = taille 'affichage de l'avancement de pb 
       pourcent = (pb.Value / pb.Max) * 100 'calcul du pourcentage 
reçu 
       Label1.Caption = pourcent & "%" 'affichage du % du 
telechargement 
 
 
    End If 
Loop

La barre de progression ainsi que le label de pourcentage ne fonctionne
pas! Enfin ils fonctionnent que à la fin du transfert, jai donc ma barre de progression qui augment d'un seul coup et mon labe passe de 0 a 100 %...

Il est coincé dans une boucle pendant le transfert .....

Je ne comprend pas...