obj := CreateObject("FTP");
  obj.host := "ftp.tinysoft.com.cn";
  obj.port := 20;
  obj.username := username;
  obj.password := password;
  obj.connect();//连接
  obj.login();//登录
  obj.changedir('/test');//将FTP服务器上的当前目录更改为"/test"
  return obj.RetrieveCurrentDir();
  //修改成功，当前目录应为"/test"