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