Dim ftpConn As FtpWebRequest = WebRequest.Create(Server)_____________
ftpConn.UsePassive = False '============>>> ici
.......
--
___________
'Create the ClientFTP object Dim ips As IPAddress() ips = Dns.GetHostAddresses("Mon.hostname") FTPSettings.IP = ips(0).ToString FTPSettings.UserID = "MonUserName" FTPSettings.Password = "MonPW" Dim reqFTP As FtpWebRequest = Nothing Dim ftpStream As Stream = Nothing Try Dim message As String = TB_FTPStatus.Text MsgBox(message, MsgBoxStyle.Information) Dim outputStream As New FileStream(Directory.GetCurrentDirectory + "\Version.txt", FileMode.Create) reqFTP = DirectCast(FtpWebRequest.Create(New Uri("ftp://192.168.1.12" + "/" + "Mondossier/Version.txt")), FtpWebRequest) ' reqFTP = DirectCast(FtpWebRequest.Create(New Uri("ftp://" + FTPSettings.IP + "/" + "Mondossier/Version.txt")), FtpWebRequest) reqFTP.Method = WebRequestMethods.Ftp.DownloadFile reqFTP.UseBinary = False reqFTP.UsePassive = False reqFTP.Credentials = New NetworkCredential(FTPSettings.UserID, FTPSettings.Password) Dim response As FtpWebResponse = DirectCast(reqFTP.GetResponse(), FtpWebResponse) ftpStream = response.GetResponseStream() Dim cl As Long = response.ContentLength Dim bufferSize As Integer = 2048 Dim readCount As Integer Dim buffer As Byte() = New Byte(bufferSize - 1) {} readCount = ftpStream.Read(buffer, 0, bufferSize) While readCount > 0 outputStream.Write(buffer, 0, readCount) readCount = ftpStream.Read(buffer, 0, bufferSize) End While Catch ex As Exception Throw New Exception(ex.Message.ToString()) ' MsgBox(ex.ToString, MsgBoxStyle.Critical) Finally ftpStream.Close() outputStream.Close() response.Close() End Try