Download via FTP in Dynamics Nav tramite dll DotNet

    VAR
      FtpRequest@1101318017 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.FtpWebRequest";
      FtpResponse@1101318016 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.FtpWebResponse";
      NetworkCredential@1101318015 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.NetworkCredential";
      InputStream@1101318023 : InStream;
      OutputStream@1101318025 : OutStream;
      FTP_PATH@1101318010 : Text;
      FTP_USER@1101318009 : Text;
      FTP_PSW@1101318008 : Text;
      LOCAL_PATH@1101318007 : Text;
      TempBlob@1101318024 : TEMPORARY Record 99008535;

PROCEDURE FTP_GetSetup@1101318025();
    BEGIN

      FTP_PATH := 'ftp://yourFtpIP/RemoteDirectory/';
      FTP_USER := 'YourFtpUser';
      FTP_PSW := 'YourFtpPassword';
      LOCAL_PATH := 'YourPath/Directory'; //example: 192.160.10.10/TMP/
	  
    END;

PROCEDURE FTP_Download@1101318021(FileNamePar@1101318000 : Text);
    BEGIN

      FTP_GetSetup;

      FtpRequest := FtpRequest.Create(FTP_PATH + FileNamePar);
      FtpRequest.Credentials := NetworkCredential.NetworkCredential(FTP_USER, FTP_PSW);
      FtpRequest.KeepAlive := TRUE;
      FtpRequest.UseBinary := TRUE;
      FtpRequest.Method := 'RETR';

      FtpResponse := FtpRequest.GetResponse();
      InputStream := FtpResponse.GetResponseStream();

      TempBlob.Blob.CREATEOUTSTREAM(OutputStream);
      COPYSTREAM(OutputStream,InputStream);
      TempBlob.Blob.EXPORT(LOCAL_PATH + FileNamePar);

    END;