LPARAMETERS lcRemoteFile, lcLocalFile, llFailIfExists
LOCAL fResult, lnFail
IF This.OpenFtpConnection(This.cStartupFolder) && Open an FTP Handle
lnFail=IIF(llFailIfExists,1,0)
lcLocalFile = lcLocalFile + cNULL
lcRemoteFile = lcRemoteFile + cNULL
=This.BeforeGetFtpFile(lcRemoteFile, lcLocalFile, llFailIfExists)
fResult = FtpGetFile(This.nConnect_Handle, @lcRemoteFile, @lcLocalFile, lnFail, ;
FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY + This.nCachingType, 0)
=This.GetExtendedError()
=This.AfterGetFtpFile(lcRemoteFile, lcLocalFile, llFailIfExists,fResult)
=IIF(This.lMultiOperations,.T.,This.CloseFtpConnection()) && Close FTP Handle
RETURN fResult = 1
ENDIF
RETURN .F.