Buscando por internet encontré un control que te puede servir. Yo lo tengo funcionando en una aplicación Access 97. Es de la casa Mabry y requiere un registro previo pago pero la versión que tengo funciona a pesar de ello. El único inconveniente és que presenta una pantalla de registro pero a los pocos segundos aparece un boton de OK que te permite utilizarlo. Más abajo puedes ver el código.
Private Sub btImportar_Click()
On Error GoTo Err_btImportar_Click_Error
Set Ftp1 = New FtpXCtl
'Configura els paràmetres de l'FTP
Ftp1.DebugMode = 1
Ftp1.Blocking = False
Ftp1.Host = "nom_host"
Ftp1.LogonName = "login"
Ftp1.LogonPassword = "password"
Ftp1.FirewallPort = "8080"
Ftp1.FirewallHost = "proxy"
Ftp1.Blocking = True
'Estableix la conexió
Ftp1.Connect
Ftp1.ChangeDir "//directori"
'Rep els fitxers
Ftp1.Type = FtpTypeAscii
Ftp1.GetFilenameList
Ftp1.GetFile "fitxer_origen", "fitxer_desti"
'Desconexió
Ftp1.Disconnect
Exit_btImportar_Click:
Exit Sub
Err_btImportar_Click_Error:
If Err.Number = 20550 Then
MsgBox "No s'ha trobat el fitxer.", vbExclamation, "Atenció"
Else
MsgBox Err.Number & " - " & Err.Description
End If
Resume Exit_btImportar_Click
End Sub
Por si te interesa, el control lo encontré en www.mabry.com
