Access - Ejemplo de Pasar fichero a ftp

Buenas a todos!

Os cuelgo un ejemplo para pasar ficheros a FTP mediante código:

Public Function envia_ftp(documento, destino, oktransm As Boolean)
' función que hace un enlace FTP y LE PASA LOS DATOS

On Error Resume Next
Dim ftp As Inet
Dim str2 As String
Dim ftphost As String
Dim ftpuser As String
Dim a As Variant

ftphost = "ftp.MI FTP.com"
ftpuser = "MI USUARIO"
ftppwd = "MI PASWORD"

str2 = "put " & documento & " " & destino
Set ftp = New Inet
With ftp
.Protocol = icFTP
.RemoteHost = ftphost
.UserName = ftpuser
.Password = ftppwd
.Execute .URL, str2
Do While .StillExecuting
DoEvents
Loop
oktransm = (.ResponseCode = 0)
End With
Set ftp = Nothing
End Function