Discussion :

[Skieur38]

Voila mon code en télécharger un fichier sur mon FTP :

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
With Inet1
.protocol = icFTP 'declaration protocole
.url = "ftp://" & mLogin & ":" & mPass & "@" & LeFtp
End With
Inet1.Execute , "size /" & source 'demande la taille du fichier a telecharger
Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet
DoEvents
Loop
 
Taille = Inet1.GetChunk(1024) 'recuperation de la taille dans taille
DoEvents
Label4.Caption = Round(Taille / 1024, 1) & "Ko"
Pb1(0).Value = 0 'definition de la valeur minimum
Pb1(0).Max = Taille 'definition de la valeur maximum
 
'telechargement du fichier
 
Inet1.Execute , "GET " & source & " " & Destination
 
Do While Inet1.StillExecuting = True 'boucle pendant le traitement de inet
    On Error Resume Next
    'Atention si le fichier est présent dans destination Inet ne le telecharge pas
    Pb1(0).Value = FileLen(Destination)  'mise a jour de la valeur de la progressbar PB
    DoEvents
    Pourcent = (Pb1(0).Value / Taille) * 100 'calcul du pourcentage reçu
    'Label2.Caption = Pourcent & "%" 'affichage du % du telechargement
Loop

Mon problème est le suivant :

Quand je veux dl sur c:\\ pas de pb
Si je veux dl dans C:\Documents and Settings\Olivier\Mes documents\VB\Test envoie et bien rien ne se passe.

Il y aurait pas un bug avec le inet et la localisation du téléchargement ou envoie?

[ThierryAIM]

Le pb vient des espaces dans la destination
Il faut tripler les " ce qui donne :

Code :

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

1
2
3
    SourceFile = "test.txt"
    Destination = "C:\Documents and Settings\Olivier\Mes documents\VB\Test\" & SourceFile
    Inet1.Execute , "GET " & SourceFile & """" & Destination & """"

[Skieur38]

Merci bcp, je vais teste tout de suite.

Ca ne fonctionne pas.

[avigeilpro]

Je reprend ce vieux sujet car j'avais le même problème et j'ai trouvé la solution

Code :

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

1
2
3
4
 
SourceFile = "test.txt"
    Destination = "C:\Documents and Settings\Olivier\Mes documents\VB\Test\" & SourceFile
    Inet1.Execute , "GET " & SourceFile & Chr(34) & Destination & Chr(34)

[hpfx]

je profite de ce post pour poser une question a propos de inet...
si vous preferez que je fasse un post pour ca, dites le moi, pas de probleme (désolé d'avance)
est-ce que ce controle utilise les parametres de proxy d'IE ?
(j'ai pas les moyens de tester)
par exemple si j'utilise ce controle pour telecharger un truc sur internet, est-ce que ca fonctionnera dans un environement d'entreprise où il y a des proxy http par exemple ?

Merci.