Ejemplo de envío FTP

[Fito]

Hola Amigos:

En foro de powercobol, hice un post para saber cómo transmitir un archivo a un ftp. Como el proceso lo tenia que hacer fuera de mi sistema, decidí hacerlo en windev.

Para eso hice un proyecto con un formulario para cargar el ftp, el usuario, etc., y en el código para enviar usé las funciones que ya trae windev para manejo de ftp.

nConexion is int
 
nConexion = FTPConnect("Servidor FTP","Usuario","Contraseña")
IF nConexion < 0 THEN
    Trace("Error de Conexión")
ELSE
    IF FTPSend(nConexion,"archivo a enviar","carpeta donde recibir en el FTP") = True THEN
        Trace("Transmisión Completa")
    ELSE
        Trace("Error en la Transmisión")
    END
    FTPDisconnect(nConexion)
END
 
Close()

Saludos.

Fito...