Subir/Bajar Archivos A/Desde FTP En VB

[Petro_Boca]

Lo primero que necesitas sera un servidor Ftp, y su passwd.

Luego colocamos lo siguiente en un formulario

controles
1. Internet Transfer Control = Inet1
Proyecto -> Componentes -> Microsoft Internet Transfer Control.
2. Un boton
3. Una caja de Texto

Para Subir Archivos:

Código (vb) [Seleccionar] Expandir

Public Sub Subir()
*** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "PUT Archivolocal ArchivoRemoto"
End Sub

Para Bajar:

Código (vb) [Seleccionar] Expandir

Public Sub Subir()
*** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "GET ArchivoRemoto ArchivoLocal"
End Sub