LPARAMETERS lcCommand, liFlags, liContext,lihFTP
LOCAL fResult
IF This.OpenFTPConnection(This.cStartupFolder) && Open an FTP Handle
liFlags=IIF(PCOUNT()<2,FTP_TRANSFER_TYPE_BINARY,liFlags)
liContext=IIF(PCOUNT()<3,0,liContext)
lihFTP=IIF(ISNULL(lihFTP),-1,0)
lcCommand = lcCommand + cNULL
=This.BeforeFTPCommand(lcCommand, liFlags, liContext)
fResult = FtpCommand(This.nConnect_Handle, IIF(lihFTP=-1,0,1), liFlags, @lcCommand,liContext,@lihFTP)
=This.GetExtendedError()
=This.AfterFTPCommand(lcCommand, liFlags, liContext,lihFTP,fResult)
=IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle
RETURN fResult = 1
ENDIF
RETURN .F.