Lista file su server FTP in Dynamics Nav tramite dll DotNet

Dopo aver visto come effettuare l’Upload, il Download e il Delete dei file non ci resta che vedere come recuperare una Lista file su server FTP in Dynamics Nav tramite dll DotNet.
Il recupero della lista di file presenti nel percorso FTP potrebbe essere utile se dobbiamo effettuare operazioni (Delete o Download) su tutti i file presenti nel percorso, senza conoscere il nome di ogni singolo file.

Lista file su server FTP in Dynamics Nav tramite dll DotNet

Qui di seguito riporto il codice utilizzato per implementare la funzione FTP_FileList compreso di variabili.
Dopo la connessione FTP recupero e storicizzo i nomi dei file, presenti sul server remoto, in una lista (utilizzando la classe List di DotNet) in modo da poterli utilizzare in un secondo momento.
Oltre alla funzione FTP_FileList è presente anche la funzione FTP_GetSetup che utilizzo per inizializzare i parametri di connessione.

	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";
      StreamReader@1101318011 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.StreamReader";
      FTP_PATH@1101318010 : Text;
      FTP_USER@1101318009 : Text;
      FTP_PSW@1101318008 : Text;
      LOCAL_PATH@1101318007 : Text;
      List@1101318020 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.Generic.List`1";
      FileName@1101318006 : Text;
      I@1101318021 : Integer;
	  
PROCEDURE FTP_GetSetup@1101318025();
    BEGIN

      FTP_PATH := 'ftp://yourFtpIP/RemoteDirectory/';
      FTP_USER := 'YourFtpUser';
      FTP_PSW := 'YourFtpPassword';
      LOCAL_PATH := 'YourLocalPath/LocalDirectory'; //example: 192.160.10.10/TMP/
	  
    END;
	
PROCEDURE FTP_FileList@1101318024();
	BEGIN
	  
	  FTP_GetSetup;
	  
      FtpRequest := FtpRequest.Create(FTP_PATH);
      FtpRequest.Credentials := NetworkCredential.NetworkCredential(FTP_USER, FTP_PSW);
      FtpRequest.KeepAlive := TRUE;
      FtpRequest.UseBinary := TRUE;
      FtpRequest.Method := 'NLST';

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

      FileName := StreamReader.ReadLine();

      List := List.List();

      WHILE FileName <> '' DO BEGIN
        List.Add(FileName);
        FileName := StreamReader.ReadLine();
      END;

      FOR I := 1 TO List.Count DO BEGIN
		//here you can cycle the list of files and choose some to use them. For example Download or Delete file. 
        //FTP_Download(List.Item(I - 1));
        //FTP_Delete(List.Item(I - 1));
      END;
	  
    END;

Nel ciclo For è possibile scegliere come gestire i file.
Nel mio caso ho utilizzato il ciclo per effettuare un Delete dei file già presenti sul server FTP prima di effettuare un nuovo Upload.

Maggiori info sulla classe FtpWebrequestMethods le trovate a questo link.

A presto 😉

Lista file su server FTP in Dynamics Nav tramite dll DotNet

Articoli Correlati

Lascia un commento Annulla risposta