Bonjour,

Suite a votre aide, j'ai réussi a développer un petit outils de synchronisation depuis mon FTP et un dossier sur ma machine.
Cependant, je n'ai pas de problème avec les fichiers, mais les dossiers ce copie sur sous form de fichier sans extension..
Comment faire pour qu'un dossier ce place correctement ?

Voici mon form1.vb

Imports System.ComponentModel
Imports System.Net

Public Class Form1
    Private LocalPath As String = "Client_Pokemonia"
    Private missingFiles As New List(Of String)


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FTPManager.loadConfig()
        createLocalFolderIfNotExistes()
        btnRefresh.performClick()

    End Sub

    Private Sub createLocalFolderIfNotExistes()
        If Not IO.Directory.Exists(LocalPath) Then IO.Directory.CreateDirectory(LocalPath)
    End Sub

    Private Sub getLocalFiles()
        dgvLocal.Rows.Clear()
        Dim files = IO.Directory.GetFiles(LocalPath)

        If files.Count > 0 Then
            For Each f In files
                Me.dgvLocal.Rows.Add(f.Split("\c").Last())

            Next
        End If




    End Sub

    Private Sub getFTPFiles()
        dgvFTP.Rows.Clear()
        missingFiles.Clear()
        Dim request = FtpWebRequest.Create(FTPManager.ServerRootPatch)
        request.Method = WebRequestMethods.Ftp.ListDirectory
        request.Credentials = New NetworkCredential(FTPManager.User, FTPManager.PW)
        Dim response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)

        Using myReader As New IO.StreamReader(response.GetResponseStream())
            Do While Not myReader.EndOfStream
                Dim file = myReader.ReadLine()
                Me.dgvFTP.Rows.Add(file)

                If Not IO.File.Exists(LocalPath & "\" & file) Then
                    dgvFTP.Rows(dgvFTP.Rows.Count - 1).DefaultCellStyle.BackColor = Color.FromArgb(255, 192, 192)
                    missingFiles.Add(file)
                Else : dgvFTP.Rows(dgvFTP.Rows.Count - 1).DefaultCellStyle.BackColor = Color.FromArgb(192, 255, 192)
                End If
            Loop
        End Using
    End Sub

    Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
        If btnRefresh.Enabled = True Then
            '  btnRefresh.Enabled = False
            Task.Delay(2000)
            getLocalFiles()
            getFTPFiles()
            btnSync.Enabled = True
        Else : MessageBox.Show("please wait")

        End If
        dgvFTP.ClearSelection()
        dgvLocal.ClearSelection()

    End Sub

    Private Sub btnSync_Click(sender As Object, e As EventArgs) Handles btnSync.Click
        If missingFiles.Count > 0 Then
            Donwload_File(New Uri(FTPManager.ServerRootPatch & FTPManager.Folder & "/" & missingFiles(0)))
        Else : MessageBox.Show("No files to downlaod")
        End If
    End Sub

    Private Sub Donwload_File(URI As Uri)
        Dim filename = URI.ToString().Split("/c").Last()
        prgb.Value = 0
        lblFile.text = filename
        Using wc As New WebClient
            wc.Credentials = New NetworkCredential(FTPManager.User, FTPManager.PW)
            AddHandler wc.DownloadProgressChanged, AddressOf File_DLProgressChanged
            AddHandler wc.DownloadFileCompleted, AddressOf File_Downloaded
            wc.DownloadFileAsync(URI, LocalPath & "\" & filename)
        End Using
    End Sub

    Private Sub File_DLProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
        prgb.Value = e.ProgressPercentage
    End Sub

    Private Sub File_Downloaded(sender As Object, e As AsyncCompletedEventArgs)
        Dim deletedFile = missingFiles(0)
        missingFiles.RemoveAt(0)

        If missingFiles.Count > 0 Then
            Donwload_File(New Uri(FTPManager.ServerRootPatch & FTPManager.Folder & "/" & missingFiles(0)))
        Else
            btnRefresh.PerformClick()
            MessageBox.Show("niquel")
        End If
    End Sub

    Private Sub dgvLocal_SelectedIndexChanged(sender As Object, e As EventArgs)


    End Sub
End Class