Class: | FTP_SERVICE |
Description: | Delete file on the FTP Server |
Type | Character |
Direction | Input |
LPARAMETERS INP lcRemoteFile LOCAL fResult IF This.OpenFTPConnection(This.cCurrentDir) && Open an FTP Handle lcRemoteFile = m.lcRemoteFile + cNULL =This.BeforeDeleteFTPFile(@m.lcRemoteFile) fResult = FtpDeleteFile(This.nConnect_Handle, @m.lcRemoteFile) This.GetExtendedError() =This.AfterDeleteFTPFile(@m.lcRemoteFile,m.fResult) =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle RETURN m.fResult = 1 ENDIF RETURN .F.