Imports JBin
      ' Subir un archivo al servidor
      Public Function Download() As IONetReturnError

      Dim IORes As New IONetReturnError
      With IORes
        .Mensage = ""
        .Ok = True
      End With

      Try

      Dim myJB As New IONet("usuarioFtp", "claveFtp")

        myJB.DownloadFile("miarchivo.txt", "ftp://ftp.miserver.com/miarchivo.txt")
        If Not myJB.IONetError.Ok Then
            IORes = myJB.IONetError
            Return IORes
        End If

        Return IORes

      Catch ex As Exception
        With IORes
            .Mensage = "Error en Proyecto.Download" & vbCrLf & ex.Message
            .Ok = False
        End With
        Return IORes
      End Try

      End Function

      ' Bajar un archivo del servidor
      Public Function Upload() As IONetReturnError

      Dim IORes As New IONetReturnError
      With IORes
        .Mensage = ""
        .Ok = True
        .UploadTime = Now
      End With

      Try

      Dim myJB As New IONet("usuarioFtp", "claveFtp")

        Dim res = myJB.UploadFile("miarchivo.txt", "miarchivo.txt", "ftp://ftp.miserver.com/miarchivo.txt")
        If Not res Then
            IORes = myJB.IONetError
            Return IORes
        End If

      Return IORes

      Catch ex As Exception
        With IORes
            .Mensage = "Error en Proyecto.Upload" & vbCrLf & ex.Message
            .Ok = False
        End With

        Return IORes
      End Try

      End Function