Disculpa por la tardanza.
Yo he renombrado el ejecutable descargado como "ftps.exe" por comodidad, y utilizo un codigo similar a esto:
* Myftp && Direccion FTP
* Myusua && USUARIO
* Mypwd && PASSWORD
* MyDir && Posible subcarpeta en el FTP
* Crear script
*
* cFile --> nombre del archivo a subir Ej. cFile = 'ventas.zip' (o cualquer otra extension)
* cRutaFile --> carpeta en ordenador local
*
lcDatos = ''
*
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3
binary
cd <<LOWER(MyDir)>>
lcd <<LOWER(cRutaFile)>>
ENDTEXT
*
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3 ADDITIVE
put <<LOWER(ALLTRIM(cFile))>>
ENDTEXT
*
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3 additive
quit
ENDTEXT
Strtofile(lcDatos,"datos.txt")
*
* Realizar conexion y envio automatizados
*
cComando="ftps -a -z "+Myftp+" -user:"+Myusua+" -password:"+Mypwd+" -s:datos.txt"
*
pEnvio=Createobject('WScript.Shell')
pEnvio.Run(cComando,2,.T.)
*