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
Public Sub Subir() *** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "PUT Archivolocal ArchivoRemoto" End Sub
Para Bajar:
Código
Public Sub Subir() *** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "GET ArchivoRemoto ArchivoLocal" End Sub