Class: | FTP_SERVICE |
Description: | Get current directory on the FTP Server |
Type | Character |
By reference | |
Direction | Output |
LPARAMETERS OUTREF lcDirectory LOCAL fResult, lcTempDir IF This.OpenFTPConnection(This.cCurrentDir) && Open an FTP Handle lcTempDir = SPACE(MAX_PATH) =This.BeforeGetFTPDirectory(@m.lcDirectory) fResult = FtpGetCurrentDirectory(This.nConnect_Handle, @m.lcTempDir, MAX_PATH) =This.GetExtendedError() lcDirectory = LEFT(m.lcTempDir, AT(cNULL, m.lcTempDir) - 1) =This.AfterGetFTPDirectory(@m.lcDirectory,m.fResult) =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle RETURN m.fResult = 1 ENDIF RETURN .F.