ProgressBar en funcion para bajar dato de un FTP

[George]

Como le haria para añadir un ProgressBar a una funcion que uso para hacer download desde un FTP?
La funcion, descrita mas abajo, trabaja perfecta *pero* necesito añadirle ese progressbar.

Code: Select all  Expand view  RUN

lGetTransfer := FTPGETFILE( hConnect, cFileInServer, cLocalFile, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 )


Saludos


George