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


 
  




 Autor
 Autor
		



 En línea
									En línea
								

 
						
 
						 
						