1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
   | Dim Value As String
 
            Dim request As System.Net.FtpWebRequest =
                    DirectCast(System.Net.WebRequest.Create("ftp://" & Form2.CBServeur.Text & "/" & Form5.TBDownload.Text), 
                    System.Net.FtpWebRequest)
 
            request.Credentials = New System.Net.NetworkCredential(Form2.CBIdentifiant.Text,
            Form2.TxtPass.Text)
            Value = request.Method = System.Net.WebRequestMethods.Ftp.GetFileSize
 
            Dim InfoDL As Net.FtpWebResponse = DirectCast(request.GetResponse(), Net.FtpWebResponse)
            Dim reader As New IO.StreamReader(InfoDL.GetResponseStream(), System.Text.Encoding.[Default])
            Dim LaTaille As String = reader.ReadToEnd()
            InfoDL.Close()
            Form6.TBPoidsDL.Text = (LaTaille) | 
Partager