Class: | FTP_SERVICE |
LOCAL loFTP,lcPom #INCLUDE "ftp.h" SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") IF !loFTP.RenameFTPFile("any.txt","any2.txt") ?loFTP.GetExtendedErrorCode(),loFTP.GetExtendedErrorMsg() ENDIF =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg
LPARAMETERS INP lcOldFile,INP lcNewFile LOCAL fResult IF This.OpenFTPConnection(This.cCurrentDir) && Open an FTP Handle lcOldFile = lcOldFile + cNULL lcNewFile = lcNewFile + cNULL =This.BeforeRenameFTPFile(@lcOldFile, @lcNewFile) fResult = FtpRenameFile(This.nConnect_Handle, @lcOldFile, @lcNewFile) =This.GetExtendedError() =This.AfterRenameFTPFile(@lcOldFile, @lcNewFile,fResult) =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle RETURN fResult = 1 ENDIF RETURN .F.