JBin
Con JBin ahorras cientos de horas y miles de líneas de código.
Descarga aquí el archivo Dll para tus proyectos.
Download JBin.dll Para poder descargarte JBin.dll debes estar suscrito.
Suscríbete por sólo 1,99 € y accede a todas las descargas y a la asistencia técnica para ayudarte a usar nuestras herramientas de ayuda al programador.

Documentación JBin
Documentación de la librería para poder aprobechar al máximo su potencia.

FTP
Subir y bajar archivos al servidor con JBin es una tarea fácil, rápida y efectiva.
Con estas poquitas líneas de código, subes y bajas archivos a tu servidor.
Dos funciones que puedes agregar a tus proyectos y usarlas siempre que sea necesario.
      
      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