' Obtient le délai du Ping en millisecondes
    Private Function getPingTime(ByVal adresseIP As String) As String
        ' AdresseIP : chaîne de caractère contenant l'adresse IP de l'hôte à "pinger"
        ' Instanciation d'un objet Ping
        Dim monPing As New Ping
        ' Objet PingReply qui nous permettra de récupérer le résultat
        Dim maReponsePing As PingReply
        Dim resultatPing As String = Nothing
        Try
            ' Récupération du résultat obtenu par la méthode Send()
            maReponsePing = monPing.Send(adresseIP, Nothing)
            ' Formatage du résultat avec récupération du temps en millisecondes
            ' grâce à la propriété RoundtripTime.
            resultatPing = "Réponse de " & adresseIP & " en " & maReponsePing._
			               RoundtripTime.ToString & " ms."
            Return resultatPing
        Catch ex As PingException
            ' Formatage de l'exception affichée
            resultatPing = "Impossible de joindre l'hôte : " & ex.Message
            Return resultatPing
        End Try
    End Function

    ' Obtient l'adresse IP
    Public Function getInfosIp() As ArrayList
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim maListe As ArrayList = Nothing
        Try
            ' Récupération de la totalité des propriétés IP 
			' de l'interface sélectionnée
            Dim mesProprietesReseau As IPInterfaceProperties = monInterface_
                                       .GetIPProperties()
            ' Récupère les adresses unicast liées à cette interface
            Dim infosUnicast As UnicastIPAddressInformationCollection =_
                                mesProprietesReseau.UnicastAddresses
            Dim adresseIp As IPAddressInformation
            ' Récupère l'adresse IP de l'interface
            For Each adresseIp In infosUnicast
                maListe.Add(adresseIp.ToString)
            Next
        Catch ex As Exception
            MessageBox.Show("Une erreur est survenue : " & ex.Message)
        End Try
        Return maListe
    End Function

	' Obtient la liste des adresses DNS de l'interface
    Public Function getAdressesDNS() As ArrayList
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim listeDns As ArrayList = Nothing
        Try
            ' Récupération de la totalité des propriétés IP 
            ' de l'interface sélectionnée
            Dim mesProprietesReseau As IPInterfaceProperties = _
                                       monInterface.GetIPProperties()
            ' Récupère les informations relatives au DNS
            Dim infosDns As IPAddressCollection = mesProprietesReseau_
                            .DnsAddresses
            Dim adresseDns As IPAddress
            ' Récupère dans une ArrayList la liste des 
            ' adresses DNS de l'interface
            For Each adresseDns In infosDns
                listeDns.Add(adresseDns.ToString)
            Next
        Catch ex As Exception
            MessageBox.Show("Une erreur est survenue : " & ex.Message)
        End Try
        Return listeDns
    End Function

    ' Obtient la liste des adresses de serveurs DHCP pour l'interface
    Public Function getAdresseDHCP() As ArrayList
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim listeDhcp As ArrayList = Nothing
        Try
            ' Récupération de la totalité des propriétés IP de l'interface sélectionnée
            Dim mesProprietesReseau As IPInterfaceProperties = _
                                       monInterface.GetIPProperties()
            ' Récupère les informations relatives au DHCP
            Dim infosDhcp As IPAddressCollection = mesProprietesReseau.DhcpServerAddresses
            Dim adresseDhcp As IPAddress
            ' Récupère dans une ArrayList la liste des adresses DHCP de l'interface
            For Each adresseDhcp In infosDhcp
                listeDhcp.Add(adresseDhcp.ToString)
            Next
        Catch ex As Exception
            MessageBox.Show("Une erreur est survenue : " & ex.Message)
        End Try
        Return listeDhcp
    End Function

    ' Obtient les informations relatives au protocole IP
    Public Function getAllInfos() As ArrayList
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim maListeGlobale As ArrayList = Nothing
        Try
            ' Récupération de la totalité des propriétés IP de l'interface sélectionnée
            Dim mesProprietesReseau As IPInterfaceProperties = _
                                       monInterface.GetIPProperties()
            ' Récupère les adresses unicast liées à cette interface
            Dim infosUnicast As UnicastIPAddressInformationCollection = _
                                mesProprietesReseau.UnicastAddresses
            Dim adresseIp As IPAddressInformation
            ' Affichage de l'adresse IP de l'interface
            For Each adresseIp In infosUnicast
                maListeGlobale.Add("Adresse IP : " & adresseIp.Address.ToString())
            Next
            ' Récupère les informations relatives au DNS
            Dim infosDns As IPAddressCollection = mesProprietesReseau.DnsAddresses
            Dim adresseDns As IPAddress
            ' Ajoute à notre ArrayList les adresses DNS de l'interface
            For Each adresseDns In infosDns
                maListeGlobale.Add("Adresse DNS : " & adresseDns.ToString)
            Next
            ' Si protocole DHCP activé sur l'interface alors 
            ' recherche de l'adresse du serveur DHCP
            If mesProprietesReseau.GetIPv4Properties.IsDhcpEnabled = True Then
            Dim infosDhcp As IPAddressCollection = mesProprietesReseau_
                             .DhcpServerAddresses
                Dim adresseDhcp As IPAddress
                ' Ajoute à notre ArrayList les adresses de serveur DHCP
                For Each adresseDhcp In infosDhcp
                    maListeGlobale.Add("Adresse DHCP : " & adresseDhcp.ToString)
                Next
            End If
            ' Récupération des propriétés relatives à la passerelle
            Dim infosPasserelle As GatewayIPAddressInformationCollection = _
                                   mesProprietesReseau.GatewayAddresses
            Dim ipPasserelle As GatewayIPAddressInformation
            ' Ajoute à notre ArrayList l'adresse de la passerelle IP
            For Each ipPasserelle In infosPasserelle
                maListeGlobale.Add("Passerelle IP : " & ipPasserelle_
                              .Address.ToString())
            Next
            ' Récupéartion des adresses de multicast de l'interface sélectionnée
            Dim infosMulticast As MulticastIPAddressInformationCollection = _
                                  mesProprietesReseau.MulticastAddresses
            Dim multicastAdresse As MulticastIPAddressInformation
            ' Ajoute à notre ArrayList les adresses de multicast
            For Each multicastAdresse In infosMulticast
                maListeGlobale.Add("IP multicast : " & multicastAdresse_
                              .Address.ToString())
            Next
        Catch ex As Exception
            MessageBox.Show("Une erreur est survenue : " & ex.Message)
        End Try
        Return maListeGlobale
    End Function

    ' Obtient le statut de la connexion réseau
    Public Function getStatutConnexion() As String
        ' Récupère la liste des interfaces
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        ' Retourne le statut de l'interface réseau
        Return monInterface.OperationalStatus.ToString
    End Function

    ' Obtient la vitesse d'une interface donnée
    Private Function getVitesseBrute() As Long
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim monResultat As Long
        ' Récupération de la vitesse de l'interface sélectionnée
        monResultat = monInterface.Speed
        Return monResultat
    End Function

    ' Formatte la vitesse pour qu'elle soit plus 'lisible'
    Private Function formateVitesseConnexion(ByVal vitesseBrute As Long) As String
        Dim vitesse As String = Nothing
        ' Formatage de la vitesse de la connexion
        Try
            Select Case vitesseBrute
                Case 10000000
                    vitesse = "10 Mbits/s"
                Case 11000000
                    vitesse = "11 Mbits/s"
                Case 54000000
                    vitesse = "54 Mbits/s"
                Case 100000000
                    vitesse = "100 Mbits/s"
                Case 108000000
                    vitesse = "108 Mbits/s"
                Case 1000000000
                    vitesse = "1 Gbits/s"
                Case Else
                    vitesse = vitesse = (vitesseBrute / 1000000)_
                                        .ToString & " Mbits/s"
            End Select
        Catch ex As Exception
            vitesse = "Non dispo."
        End Try
        Return vitesse & " Mbits/s"
    End Function

    ' Obtient le nombre de Ko envoyés
    Public Function getOctetsEnvoyes() As String
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim octetsEnvoyes As Double = Nothing
        Dim octetsEnvoyesFormate As String = Nothing
        Try
            Dim mesStats As IPv4InterfaceStatistics = monInterface.GetIPv4Statistics
            ' Récupération et conversion du nombre d'octets envoyés en Mo
            octetsEnvoyes = Math.Round(mesStats.BytesSent / 1024)
            octetsEnvoyesFormate = octetsEnvoyes & " Ko"
        Catch ex As Exception
            octetsEnvoyesFormate = "Non dispo."
        End Try
        Return octetsEnvoyesFormate
    End Function

    ' Obtient le nombre de Ko reçus
    Public Function getOctetsRecus() As String
        Dim mesInterfaces() As NetworkInterface
        mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
        Dim monInterface As NetworkInterface
        ' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
        ' qui se trouve dans le tableau mesInterfaces()
        monInterface = mesInterfaces("nom_de_l'interface_voulue")
        Dim octetsRecus As Double = Nothing
        Dim octetsRecusFormate As String = Nothing
        Try
            Dim mesStats As IPv4InterfaceStatistics = monInterface.GetIPv4Statistics
            ' Récupération et conversion du nombre d'octets reçus en Mo
            octetsRecus = Math.Round(mesStats.BytesReceived / 1024)
            octetsRecusFormate = octetsRecus & " Ko"
        Catch ex As Exception
            octetsRecusFormate = "Non dispo."
        End Try
        Return octetsRecusFormate
    End Function

Imports System.Net

Dim monAuthentificationFtp As New NetworkCredential("un_identifiant", "un_mot_de_passe")

	Imports System.IO
	Imports System.Net
	Imports System.Text

    ' Download d'un fichier depuis un serveur FTP
    Private Sub downloadFichier(ByVal strUrlFichier As String, _
                                ByVal strCheminDestinationFichier As String, _
                                ByVal identifiant As String, _
                                ByVal motDePasse As String)
        ' strUrlFichier : Uri du fichier sur le serveur FTP
        ' strCheminDestinationFichier : Uri du fichier sur le disque dur
        ' identifiant : login du compte FTP utilisé
        ' motDePasse : mot de passe du compte FTP utilisé
        ' Instanciation de deux Uri qui vont contenir les chemins source et destination
        Dim monUriFichier As New System.Uri(strUrlFichier)
        Dim monUriDestinationFichier As New System.Uri(strCheminDestinationFichier)
        ' Vérification de la validité de l'Uri du fichier sur le serveur FTP
        If Not (monUriFichier.Scheme = Uri.UriSchemeFtp) Then
            MessageBox.Show("L'Uri du fichier sur le serveur FTP n'est pas valide", _
                            "Une erreur est surevnue", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            ' Si Uri non valide, arrêt du téléchargement
            Exit Sub
        End If
        ' Vérification de la validité de l'Uri de l'emplacement du fichier de destination
        If Not (monUriDestinationFichier.Scheme = Uri.UriSchemeFile) Then
            MessageBox.Show("Le chemin de destination n'est pas valide !", _
                            "Une erreur est surevnue", _
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)
            ' Si Uri non valide, arrêt du téléchargement
            Exit Sub
        End If
        ' Création des 2 flux et du reader nécessaire pour la récupération du fichier
        Dim monResponseStream As Stream = Nothing
        Dim monFileStream As FileStream = Nothing
        Dim monReader As StreamReader = Nothing
        Try
            ' Requête demandant le fichier se trouvant sur le serveur FTP
            Dim downloadRequest As FtpWebRequest = CType(WebRequest.Create_
                                                   (monUriFichier), FtpWebRequest)
            ' Vérification de la présence des identifiants d'un compte, si aucun alors
            ' la connexion se fait en mode anonyme
            If Not identifiant.Length = 0 Then
                Dim monCompteFtp As New NetworkCredential(identifiant, motDePasse)
                downloadRequest.Credentials = monCompteFtp
            End If
            ' Flux de données issu du fichier sur le serveur FTP
            Dim downloadResponse As FtpWebResponse = CType(downloadRequest_
                                                     .GetResponse(), FtpWebResponse)
            monResponseStream = downloadResponse.GetResponseStream()
            ' Chemin de destination du fichier sur le disque dur
            Dim nomFichier As String = monUriDestinationFichier.LocalPath.ToString
            ' Création du fichier de destination sur le disque dur
            monFileStream = File.Create(nomFichier)
            ' Tableau d'octets qui va contenir les données issues du flux
            Dim monBuffer(1024) As Byte
            Dim octetsLus As Integer
            ' Lecture du buffer, puis écriture des données dans le fichier
            While True
                ' Lecture du flux
                octetsLus = monResponseStream.Read(monBuffer, 0, monBuffer.Length)
                If octetsLus = 0 Then
                    Exit While
                End If
                ' Ecriture dans le fichier
                monFileStream.Write(monBuffer, 0, octetsLus)
            End While
            MessageBox.Show("Téléchargement effectué.")
            ' Gestion des exceptions
        Catch ex As UriFormatException
            MessageBox.Show(ex.Message)
        Catch ex As WebException
            MessageBox.Show(ex.Message)
        Catch ex As IOException
            MessageBox.Show(ex.Message)
        Finally
            ' Fermeture du reader et des deux streams si nécessaire
            If monReader IsNot Nothing Then
                monReader.Close()
            ElseIf monResponseStream IsNot Nothing Then
                monResponseStream.Close()
            End If
            ' Fermeture du flux et du fichier
            If monFileStream IsNot Nothing Then
                monFileStream.Close()
            End If
        End Try
    End Sub

    ' Upload un fichier sur un serveur FTP
    Private Sub uploadFichier(ByVal cheminSource As String, _
                              ByVal urlDestination As String, _
                              ByVal identifiant As String, _
                              ByVal motDePasse As String)
        ' cheminSource : Uri du fichier sur le disque dur
        ' urlDestination : Uri du fichier de destination sur le serveur FTP
        ' identifiant : login du compte FTP utilisé
        ' motDePasse : mot de passe du compte FTP utilisé
        Dim monUriFichierLocal As System.Uri = Nothing
        Dim monUriFichierDistant As System.Uri = Nothing
        ' Vérification de la validité de l'Uri de l'emplacement du fichier source
        If Not (monUriFichierLocal.Scheme = Uri.UriSchemeFile) Then
            MessageBox.Show("Le chemin du fichier local n'est pas valide !", "Une _
             erreur est survenue", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        ' Vérification de la validité de l'Uri de l'emplacement du fichier de destination
        If Not (monUriFichierDistant.Scheme = Uri.UriSchemeFtp) Then
            MessageBox.Show("Le chemin du fichier sur le serveur FTP n'est pas _
            valide !", "Une erreur est surevnue", MessageBoxButtons.OK, _
            MessageBoxIcon.Warning)
            Exit Sub
        End If
        ' Création des 2 flux et du reader nécessaire pour l'envoi du fichier
        Dim monRequestStream As Stream = Nothing
        Dim fileStream As FileStream = Nothing
        Dim uploadResponse As FtpWebResponse = Nothing
        Try
            ' Requête d'upload d'un fichier vers le serveur
            Dim uploadRequest As FtpWebRequest = CType(WebRequest_
                                 .Create(urlDestination), FtpWebRequest)
            ' Vérification de la présence des identifiants d'un compte, si aucun alors
            ' la connexion se fait en mode anonyme
            If Not identifiant.Length = 0 Then
                Dim monCompte As New NetworkCredential(identifiant, motDePasse)
                uploadRequest.Credentials = monCompte
            End If
            uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
            ' Désactivation du proxy http incompatible avec cette requête
            uploadRequest.Proxy = Nothing
            monRequestStream = uploadRequest.GetRequestStream()
            fileStream = File.Open(cheminSource, FileMode.Open)
            ' Tableau d'octets qui va contenir les données issues du fichier
            Dim buffer(1024) As Byte
            Dim bytesRead As Integer
            ' Lecture des données et envoi de celle-ci dans le flux
            While True
                bytesRead = fileStream.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then
                    Exit While
                End If
                ' Ecriture des données dans le flux d'upload vers le serveur FTP
                monRequestStream.Write(buffer, 0, bytesRead)
            End While
            'L'objet requestStream dot être fermé avant de récupérer la réponse
            monRequestStream.Close()
            uploadResponse = CType(uploadRequest.GetResponse(), FtpWebResponse)
            MessageBox.Show("Upload terminé.")
            ' Gestion des exceptions
        Catch ex As UriFormatException
            MessageBox.Show(ex.Message)
        Catch ex As WebException
            MessageBox.Show(ex.Message)
        Catch ex As IOException
            MessageBox.Show(ex.Message)
        Finally
            ' Fermeture des différents flux utilisés
            If uploadResponse IsNot Nothing Then
                uploadResponse.Close()
            End If
            If fileStream IsNot Nothing Then
                fileStream.Close()
            End If
            If monRequestStream IsNot Nothing Then
                monRequestStream.Close()
            End If
        End Try
    End Sub

    ' Obtient la liste des fichiers d'un répertoire donné
    Public Function listeFichiers(ByVal serveurCible As String, _
                                  ByVal identifiant As String, _
                                  ByVal motDePasse As String) As Array
        Dim monResponseStream As Stream = Nothing
        Dim monStreamReader As StreamReader = Nothing
        Dim monResultat As Array = Nothing
        ' Instanciation de deux Uri qui vont contenir les chemins source et destination
        Dim monUriServeur As New System.Uri(serveurCible)
        ' Vérification de la validité de l'Uri du fichier sur le serveur FTP
        If Not (monUriServeur.Scheme = Uri.UriSchemeFtp) Then
            MessageBox.Show("L'Uri du serveur FTP n'est pas valide", _
                            "Une erreur est surevnue", _
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)
            'Si Uri non valide, arrêt du listage
            Return monResultat
            Exit Function
        End If
        Try
            ' Création de la requête de récupération de la liste des fichiers
            Dim maRequeteListe As FtpWebRequest = CType(WebRequest.Create_
                                                  (monUriServeur), FtpWebRequest)
            maRequeteListe.Method = WebRequestMethods.Ftp.ListDirectoryDetails
            ' Vérification de la présence des identifiants d'un compte, si aucun alors
            ' la connexion se fait en mode anonyme
            If Not identifiant.Length = 0 Then
                Dim monCompteFtp As New NetworkCredential(identifiant, motDePasse)
                maRequeteListe.Credentials = monCompteFtp
            End If
            ' Récupération de la liste de fichiers
            Dim maResponseListe As FtpWebResponse = CType(maRequeteListe_
                                                    .GetResponse, FtpWebResponse)
            ' Placement du flux provenant du serveur dans un streamreader
            monStreamReader = New StreamReader(maResponseListe.GetResponseStream, _
                                               Encoding.Default)
            ' Lecture du stream reader
            Dim listeBrute As String = monStreamReader.ReadToEnd
            ' Découpage de chaque fichier dans la liste concaténée de fichiers
            Dim separateur() As String = {Environment.NewLine} ' -> retour chariot
            ' Découpage et récupération des noms de fichiers
            Dim tableauListe() As String = listeBrute.Split(separateur, _
                                           StringSplitOptions.RemoveEmptyEntries)
            Dim listeFinale As New List(Of String)
            ' Lecture du tableau et tri des noms de fichiers
            Dim i As Integer = 0
            While i < tableauListe.Length
                ' Les répertoires se différencient des fichiers par le fait que  
                ' la chaîne que l'on récupère commence par un "d".
                If Not tableauListe(i).StartsWith("d") Then
                    ' On place les noms de fichiers dans une liste
                    listeFinale.Add(tableauListe(i).Substring(tableauListe(i)_
                                                   .LastIndexOf(" ") + 1))
                End If
                i += 1
            End While
            monResultat = listeFinale.ToArray
            MessageBox.Show("Liste terminée")
            ' Gestion des exceptions
        Catch ex As UriFormatException
            MessageBox.Show(ex.Message)
        Catch ex As WebException
            MessageBox.Show(ex.Message)
        Finally
            ' Fermeture des différents flux utilisés
            If monResponseStream IsNot Nothing Then
                monResponseStream.Close()
            End If
            If monStreamReader IsNot Nothing Then
                monStreamReader.Close()
            End If
        End Try
        Return monResultat
    End Function

    ' Efface un fichier donné sur un serveur FTP
    Public Function effaceFichier(ByVal uriFichier As String, _
                                  ByVal identifiant As String, _
                                  ByVal motDePasse As String) As Boolean
        ' Création d'un URI à partir de la chaine contenant l'URL du serveur FTP
        Dim monUriFichier As New Uri(uriFichier)
        ' Vérification de la validité de l'adresse FTP
        If Not (monUriFichier.Scheme = Uri.UriSchemeFtp) Then
            MessageBox.Show("L'URI du fichier à effacer n'est pas valide", _
                            "Une erreur est surevnue", _
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)
            'Si Uri non valide, arrêt du listage
            Return False
            Exit Function
        End If
        Try
            ' Création de la requête d'effacement du fichier
            Dim maRequeteEffacement As FtpWebRequest = CType(WebRequest_
                                       .Create(uriFichier), FtpWebRequest)
            maRequeteEffacement.Method = WebRequestMethods.Ftp.DeleteFile
            ' Vérification de la présence des identifiants d'un compte, si aucun alors
            ' la connexion se fait en mode anonyme
            If Not identifiant.Length = 0 Then
                Dim monCompteFtp As New NetworkCredential(identifiant, motDePasse)
                maRequeteEffacement.Credentials = monCompteFtp
            End If
            ' Effacement du fichier et récupération du résultat
            Dim maResponseFtp As FtpWebResponse = CType(maRequeteEffacement_
                                                  .GetResponse, FtpWebResponse)
            MessageBox.Show("Résultat action : " & maResponseFtp.StatusDescription)
            Return True
        Catch ex As Exception
            Return False
            MessageBox.Show("Une erreur est surevnue : " & ex.Message, _
                            "Une erreur est surevnue", _
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Function