Class: | FTP_SERVICE |
Description: | Renames a file |
LPARAMETERS INP lcOldFile,INP lcNewFile LOCAL fResult IF This.OpenFTPConnection(This.cCurrentDir) && Open an FTP Handle lcOldFile = m.lcOldFile + cNULL lcNewFile = m.lcNewFile + cNULL =This.BeforeRenameFTPFile(@m.lcOldFile, @m.lcNewFile) fResult = FtpRenameFile(This.nConnect_Handle, @m.lcOldFile, @m.lcNewFile) =This.GetExtendedError() =This.AfterRenameFTPFile(@m.lcOldFile, @m.lcNewFile,m.fResult) =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle RETURN m.fResult = 1 ENDIF RETURN .F.