Subir archivos a internet con Visual Basic 2005

Subir los archivos que queramos a un servidor FTP que deseemos.
Con este programa podremos hacer 3 cosas: Subir archivos, comprobar que tenemos conexion a internet y por ultimo hacer ping a una web.

Para empezar vamos a escribir este codigo en un control button:

1. Private Sub Descargar_Archivo(ByVal Url As String, _
2. ByVal Path_Archivo As String, _
3. ByVal usuario As String, _
4. ByVal password As String)
5. ‘ Controlador de error
6. Try
7. ‘ Ejecuta el método UploadFile para subir el archivo al servidor FTP
8. My.Computer.Network.UploadFile(Path_Archivo, _
9. Url, _
10. usuario, _
11. password, _
12. True, _
13. 2500, _
14. FileIO.UICancelOption.DoNothing)
15.
17.
18. MessageBox.Show(”El archivo se ha enviado correctamente”, “”, _
19. MessageBoxButtons.OK, MessageBoxIcon.Information)
20.
21. ‘ error
22. Catch mensaje As Exception
23. MessageBox.Show(mensaje.Message, “”, _
24. MessageBoxButtons.OK, MessageBoxIcon.Error)
25. End Try
26.
27. End Sub
28.
29. Private Sub Form1_Load(ByVal sender As System.Object, _
30. ByVal e As System.EventArgs) _
31. Handles MyBase.Load
32. Button1.Text = “Upload”
33. End Sub
34.
35. Private Sub Button1_Click(ByVal sender As System.Object, _
36. ByVal e As System.EventArgs) Handles Button1.Click
37.
38. ‘ le pasa la dirección de destino, el archivo origen, el user y password
39. Call Descargar_Archivo(”Dirección ftp + el nombre del archivo de destino”, _
40. “Ruta del archivo a subir”, _
41. “User”, _
42. “pass”)
43.
44. End Sub

Una vez copiado este codigo en el control button , vamos a escribir el siguiente codigo en el formulario para comprobar si tenemos conexion a internet o no.

My.Computer.Network.IsAvailable – saber si hay conexión a internet

1. Private Sub Form1_Load(ByVal sender As System.Object, _
2. ByVal e As System.EventArgs) _
3. Handles MyBase.Load
4. If My.Computer.Network.IsAvailable = True Then
5. MsgBox(”Está conectado a internet”)
6. Else
7. MsgBox(”No Está conectado a internet”)
8. End If
9. End Sub

Y por ultimo comprobaremos el ping de la pagina web

My.Computer.Network.Pin – Hacer ping a una web

1. Sub Hacer_Ping(ByVal URL As String)
2. Dim El_Ping As Boolean ‘declaramos la variable
3.
5. ‘ verifica que hay conexión a internet
6. If My.Computer.Network.IsAvailable = False Then
7. MsgBox(”No hay conexión a internet”, MsgBoxStyle.Critical)
8. Exit Sub
9. End If
10. On Error Resume Next
11.
12. ‘guardamos en la variable la direccion del ping
13. El_Ping = (My.Computer.Network.Ping(URL))
14.
15. ‘Acá mandamos los mensajes para las 2 posibilidades
16. If El_Ping = False Then
17. ’si no se pudo acceder ,avisamos
18. MsgBox(”La Web no está disponible”, MsgBoxStyle.Critical, “Error”)
19. Else
20. MsgBox(”La Web está disponible !!”, MsgBoxStyle.Information, “Aviso”)
21. End If
22. End Sub
23.
24. Private Sub Button1_Click(ByVal sender As System.Object, _
25. ByVal e As System.EventArgs) Handles Button1.Click
26. Dim Url As String
27.
28. Url = InputBox(”Ingrese la url”, “Ping”)
29. If Url <> “” Then
30. Hacer_Ping(Url)
31. End If
32. End Sub