Discussion :

[HyperKut]

Bonjour à tous,
J'aimerais savoir comment télécharger un dossier entier comprenant tous les fichiers et les sous-dossiers qu'il contient. Je sais comment télécharger 1 fichier, mais je ne sais pas comment englober et télécharger un dossier entier. Merci d'avance pour vos réponses

[wallace1]

Bonsoir,

Il n'existe pas de fonction toute prête pour faire ce que tu demandes. Donc si tu sais télécharger 1 fichier alors il sera assez simple de télécharger l'ensemble des fichiers contenu dans un dossier.

1- Lister le contenu d'un répertoire : WebRequestMethods.Ftp.ListDirectory

2- Dans une boucle, télécharger l'ensemble des fichiers listé par la fonction en "1-" : WebRequestMethods.Ftp.DownloadFile

Il existe beaucoup d'exemples sur Internet.

La balle est dans ton camps.

A+

[gastoncs]

Quelle coïncidence je viens de bosser sur ceci cet après midi, alors voici un bout de code tout chaud pour récupérer le nom de tes fichier présent dans le dossier :

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
 Dim Dirlist As New List(Of String) 'list contenant le nom des fichiers du dossier
        Dim request As FtpWebRequest = DirectCast(WebRequest.Create("le lien de ton dossier ftp"), FtpWebRequest)
        'on se connecte en ftp
        request.Method = WebRequestMethods.Ftp.ListDirectory
        request.Credentials = New NetworkCredential("ton identifiant ftp", "ton_mot_de_passe_ftp")
 
        Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream
 
        Using reader As New StreamReader(responseStream)
            Do While reader.Peek <> -1
                Dirlist.Add(reader.ReadLine)
            Loop
        End Using
        response.Close()

et après il ne te reste plus que a parcourir la list Dirlist pour les extraire.