Verificar la conexion a un servidor FTP en vb.net

Ahora bien, tenemos el siguiente problema, resulta que a veces nuestra linea estan lenta o en el peor de los casos algun gracioso desconecto nuestro servidor FTP y todos los archivos que se tratan de enviar no llegan a su destino ya que si no nos apresuramos nos pueden linchar los usuarios de nuestro sistema, bueno aca esta claro que hay un problema de conectividad, para cualesquiera que sea el caso, es necesario verificar (validar, comprobar, etc etc) justamente si esta disponible nuestro server en ese momento que que enviamos o descargamos los archivos y de esa forma apaciguar los animos de quienes lo requieren con un mensaje como "La linea que Telefonica nos provee esta pesima, asi que tranquilizate e intenta mas tarde enviar tu archivo".

Pues bien ahora mostrare un fragmento de como resolver (en todo caso, advertir) este problemilla en codigo Visual Basic 2008

Codigo:

Imports System.Net

Private Function VerificarConecFTP() As Boolean

Dim ClienteFtp As New Sockets.TcpClient

Try

ClienteFtp.Connect("2oo.48.xx.xxx", 21) ' ojo, solo IP del server FTP

VerificarConecFTP= True ' si devuelve True significa que hay conexion

Catch Ex As Exception

MsgBox(Ex.Message) ' escriba el mensaje que mas te salve del apuro

VerificarConecFTP= False ' si devuelve False significa que tienes que ir corriendo a ver que pasa en el server

End Try

End Function

Post relacionados :