PutFTPFile Method
Class: FTP_SERVICE
This function sends a file to the FTP server from some local area. Depending on how the FTP Server is setup, decides whether or not an existing file is overwritten or if the function fails to send the file.
=
Object.PutFTPFile
Parameter
lcRemoteFile
Remote file name
Type Character
Direction Input
Name and Path for the contents of the file to be stored in.
This parameter cannot be empty.
lcLocalFile
Local file name
Type Character
Direction Input
Name and Path of the file to send to the FTP Server.
This parameter cannot be empty.
Return value Boolean
Returns .T. if the function successfully copied the file to the FTP Server. Returns .F. if the operation failed.
Example
LOCAL loFTP
SET PROCEDURE TO ftp.prg ADDITIVE 
loFTP=CREATEOBJECT('ftp_service') 

IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
   IF loFTP.PutFTPFile("any.txt","local.txt")
      ?STRTRAN("File %File% uploaded","%File%","local.txt")
   ELSE
      ?loFTP.nExtended_Result,loFTP.cExtended_Message
   ENDIF
   =loFTP.CloseInternet() 
ENDIF
RELEASE PROCEDURE ftp.prg
See also
Expand/Collapse source code of procedure PutFTPFile Source Code
      LPARAMETERS lcRemoteFile, lclocalFile
      LOCAL fResult
      IF EMPTY(lcRemoteFile) OR EMPTY(lcLocalFile)
         RETURN .F.
      ENDIF
      IF This.OpenFTPConnection(This.cStartupFolder)     && Open an FTP Handle
         lcRemoteFile = lcRemoteFile + cNULL
         lcLocalFile = lcLocalFile + cNULL

         =This.BeforePutFTPFile(lcRemoteFile, lclocalFile)
         fResult = FtpPutFile(This.nConnect_Handle, @lcLocalFile, @lcRemoteFile, ;
                              FTP_TRANSFER_TYPE_BINARY, 0)
         =This.GetExtendedError()
         =This.AfterPutFTPFile(lcRemoteFile, lclocalFile,fResult)

         =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection())   && Close FTP Handle

         RETURN  fResult = 1
      ENDIF
      RETURN .F.