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:
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
ConectarFTP = True ' si devuelve True significa que hay conexion
Catch Ex As Exception
MsgBox(Ex.Message) ' escriba el mensaje que mas te salve del apuro
ConectarFTP = False ' si devuelve False significa que tienes que ir corriendo a ver que pasa en el server
End Try
End Function
