Discussion :

[kitcarflo]

Tout d'abord,
Je vous souhaite à tous mes meilleurs voeux pour cette nouvelle année.

Ma question concerne le téléchargement de fichier sur un serveur FTP.

Attention : Téléchargement = copier un fichier du Serveur FTP et le mettre sur l'ordi. Dans l'autre sens j'y arrive, et si des personnes sont interressé, je peux donner mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim user = "Votre user"
        Dim pass = "Votre mot de passe"
        Dim fichlocal = "c:/essai.txt" 'Liens du fichier sur votre ordi
        Dim fichftp = "ftp://votreserveur/dossier1/dossier2/essai..txt" 'lien du ftp et le dossier de destination
        'upload
 
        Try
            My.Computer.Network.DownloadFile(fichftp, fichlocal, user, pass)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        MessageBox.Show("Donwload correctement effectuer", "ok")

Il s'agit la d'un code que l'on retrouve un peu partout qui est parraît-il la façon dont-il faut faire. Or il me retourne "Le serveur distant a retourné une erreur : (530) Non connecté"

Et je n'arrive pas à trouver une solution,,, si quelqu'un à une solution ????

Merci

[wallace1]

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
 
Friend WithEvents W as New Webclient
 
Private Sub DowloadFileAsync()
Try
  W.Credentials = New NetworkCredential(user, pass)
  W.DownloadFileAsync(New Uri(fichftp), fichlocal)
Catch ex as exception
  msgbox(ex.tostring)
end try
end sub
 
Private Sub Progress(sender As Object, e As DownloadProgressChangedEventArgs) Handles W.DownloadProgressChanged
  Me.Progressbar1.Value = e.ProgressPercentage
    End Sub
 
Private Sub Completed(sender As Object, e As AsyncCompletedEventArgs) Handles W.DownloadFileCompleted
  Msgbox("Téléchargement terminé !")
end sub

[Rainui]

Bonsoir,

Pourrais tu poster ton code correspondant à :

Code :

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

1
2
3
4
5
6
7
8
9
Dim fichlocal = "c:/essai.txt" 'Liens du fichier sur votre ordi
Dim fichftp = "ftp://votreserveur/dossier1/dossier2/essai..txt" 'lien du ftp et le dossier de destination
    'upload
 
    Try
        My.Computer.Network.DownloadFile(fichftp, fichlocal, user, pass)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

Défois qu'il y ai une faute

Ps: il est gentil wallace, il te met même une progressbar

[kitcarflo]

Bonjour.

Rainui,,, je voit ce que tu veux dire sur la faute, genre un oubli de lettre dans le pseudo ou le mot de passe ou dans le lien FTP. Ce genre d'oubli c'est casse ..... car très dur de le trouver.

Quoi qu'il en soit ce n'est pas sa car.
Je met connecte avec le Pseudo et le MDP sans problème sur filezilla. Je fais un copier-coller en faisant attention de ne pas mettre d'espace ni avant ni après le Pseudo ou Mot de passe.
Pour le lien du fichier FTP, je vais sur fileZilla, je "clic droit" sur le fichier que je veux télécharger et je met en mémoire le lien que je colle sur mon code.

N'étant pas chez moi mais au taf, je testerai que ce soir en rentrant la méthode de Wallace.

Je vous tiens au courant ce soir du résultat.

Merci

[wallace1]

--> J'ai corrigé une petite erreur dans mon 1er post (Friend WithEvents)
--> Il est également recommandé de vérifier si le thread du "Webclient" n'est pas déjà en cours d'exécution avant de lancer le téléchargement :

Code :

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

1
2
3
4
 
  If Not W.IsBusy Then
      downloadFileAsync
  end if

A+

PS si ca ne fonctionne toujours pas alors tu as certainement mal renseigné ton url ftp.

Cordialement wallace

[kitcarflo]

Wallace,
Effectivement ton code ne plante pas.

Cela me créer bien le fichier la ou je demande, mais le fichier est vide

[wallace1]

Wallace,
Effectivement ton code ne plante pas.

Cela me créer bien le fichier la ou je demande, mais le fichier est vide

lool bah là on ne peut rien faire de plus.....

A+