SSIS, secuencia de comandos y FTP. No entiendo que pasa...

Hola a todos.
Como bien dice el título, no entiendo que pasa con ésta tarea. El paquete no
da ningún error, se ejecuta perfectamente, pero no sube el fichero en
cuestión al sitio ftp. Os peqo el código, a ver sí hay algo que se me escapa.

<pego>
Public Sub Main()
'
' Add your code here
'
Try
Dim Vars As Variables
Dim sArchivo(0) As String
Dim sDirRemoto As String = "/"
sArchivo(0) = "SolicitudesServicios.txt"

'*****************************************
'RECUPERO DATOS DE VARIABLES DEL PAQUETE
'Configuro la conexión. Servidor
Dim sFTPServer As String
Dts.VariableDispenser.LockOneForRead("sServidorFTP", Vars)
sFTPServer = Vars("sServidorFTP").Value.ToString()
Vars.Unlock()
'Usuario
Dim sUsFTP As String
Dts.VariableDispenser.LockOneForRead("sUsuarioFTP", Vars)
sUsFTP = Vars("sUsuarioFTP").Value.ToString()
Vars.Unlock()
'Contraseña
Dim sPwFTP As String
Dts.VariableDispenser.LockOneForRead("sPwFTP", Vars)
sPwFTP = Vars("sPwFTP").Value.ToString()
Vars.Unlock()
'Ruta local
Dim sDirLocal As String
Dts.VariableDispenser.LockOneForRead("sLocalPath", Vars)
sDirLocal = Vars("sLocalPath").Value.ToString()
Vars.Unlock()

'Recupero conexión FTP
Dim cnFTP As ConnectionManager = Dts.Connections("ftpLOOMIS")
'Configuro el FTP
cnFTP.Properties("ServerName").SetValue(cnFTP, sFTPServer)
cnFTP.Properties("ServerUserName").SetValue(cnFTP, sUsFTP)
cnFTP.Properties("ServerPassword").SetValue(cnFTP, sPwFTP)
cnFTP.Properties("ServerPort").SetValue(cnFTP, "21")
cnFTP.Properties("Timeout").SetValue(cnFTP, "0")
cnFTP.Properties("ChunkSize").SetValue(cnFTP, "1000")

'Creo el objeto ftp
Dim ftp As FtpClientConnection = New
FtpClientConnection(cnFTP.AcquireConnection(Nothing))

'Abro la conexión, envío el archivo y cierro conexión
ftp.Connect()
ftp.UsePassiveMode = False
sArchivo(0) = sDirLocal & sArchivo(0)
ftp.SendFiles(sArchivo, sDirRemoto, True, True)
ftp.Close()
Dts.TaskResult = Dts.Results.Success
Catch ex As Exception
MsgBox("Error :: " + ex.ToString)
Dts.TaskResult = Dts.Results.Failure
End Try
End Sub
</pego>

Como veis, configuro el sitio ftp a través de variables del paquete. Como os
digo, no da error, pero no sube el fichero.
A ver sí alguien me puede dar alguna idea de que es lo que pasa, por qué me
estoy volviendo loco.
¡Gracias!

Salu2,
José Mª Fueyo