Scaricamento file da SFTP

' Il seguente script è un esempio di come si possono scaricare i file contenuti in una cartella da un server SFTP. 
' Utilizza la libreria SSH.NET, installata con la release 2021.06+4.
' Al seguente link: https://ourcodeworld.com/articles/read/369/how-to-access-a-sftp-server-using-ssh-net-sync-and-async-with-c-in-winforms
' è possibile trovare altri esempi di utilizzo
Dim host As String = "<host>" ' es. ftp.qualiware.it
Dim username As String = "<user>"
Dim password As String = "<password>"
Dim remoteDirectory As String = "/<eventuale percorso>"

dim sftp As Renci.SshNet.SftpClient = New Renci.SshNet.SftpClient(host, username, password)

Try
    sftp.Connect()
    Dim files = sftp.ListDirectory(remoteDirectory)
   
    dim file
    For Each file In files 
    	 Dim pathRemoteFile As String = remoteDirectory+"/"+file.name
         Dim pathLocalFile As String = Funique(Q95_PATH_TEMP+"\TEMP???????"+system.io.path.getextension(file.name))
		
         Dim fileStream As System.Io.Stream = System.Io.File.OpenWrite(pathLocalFile)
         sftp.DownloadFile(pathRemoteFile, fileStream)
         fileStream.close()
 
         form.FileDownload(pathLocalFile,file.name)         
    Next

    sftp.Disconnect()

Catch e As Exception
    form.alert("Errore SFTP: " & e.message)
End Try