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