Change remote working directory.

Examples

SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
  fid VARCHAR2(80);
  host VARCHAR2(80)   := 'ftp.gnu.org';
  usernm VARCHAR2(80) := 'anonymous';
  passwd VARCHAR2(80) := '';
BEGIN
  fid := fclient_p.createFTPClient;
  fclient_p.login(fid, host, usernm, passwd); 
  fclient_p.printWorkingDirectory(fid);
  DBMS_OUTPUT.PUT_LINE(SUBSTR('Current Directory:'||REPLACE(REPLACE(fclient_p.getLastResponse(fid), CHR(10)), '257 '), 1, 255));
  
  fclient_p.changeWorkingDirectory(fid, '/gnu/windows');

  fclient_p.printWorkingDirectory(fid);
  DBMS_OUTPUT.PUT_LINE(SUBSTR('Current Directory:'||REPLACE(REPLACE(fclient_p.getLastResponse(fid), CHR(10)), '257 '), 1, 255));
  fclient_p.logout(fid);
  fclient_p.remove(fid);
EXCEPTION
  WHEN fclient_p.java_failed THEN
    DBMS_OUTPUT.PUT_LINE(SUBSTR(fclient_p.getErrorWithResponse(fid), 1, 255));
END;
/

Output from code above:
Current Directory:"/"                                                           
Current Directory:"/gnu/windows" 


If you need to check if changeWorkingDirectory is successful add the following snippet of code immediately after
the call to changeWorkingDirectory:

  IF fclient_p.getLastResponseReturnCode(fid) = '250' THEN
    DBMS_OUTPUT.PUT_LINE('Changed directory Successfully');
  ELSE
    DBMS_OUTPUT.PUT_LINE(SUBSTR('Changed directory Failed, Reason :'||REPLACE(fclient_p.getLastResponse(fid), CHR(10)), 1, 255));
  END IF;