Ciao a tutti.
Ho creato una function per caricare dei file su di un server remoto (sito web) seguendo alcuni esempi.
Mi sembra corretta però ho questo errore: “Errore del server remoto: (550) File non disponibile (ad esempio file non trovato o non accessibile)..”
Con FileZilla riesco a caricare lo stesso file senza problemi.

Questa è la function:
Private Function UploadFile(ByVal Path As String, ByVal File As String) As Boolean
Dim DestFTP As String = "ftp://ftp.sitoweb.it/"; & File
Dim User As String = "USER"
Dim Pwd As String = "PASSWORD"
Dim NomeFile As String = Path & File
Try
My.Computer.Network.UploadFile(NomeFile, DestFTP, User, Pwd, True, 100000)
Return True
Catch Errore As Exception
MsgBox(Errore.Message)
Return False
End Try
End Function

Le stringhe NomeFile e DestFTP sono composte correttamente:
nomeFile = D:\prova.txt
destFtp = ftp://ftp.sitoweb.it/prova.txt

Il server è Aruba e l'indirizzo per l'FTP dovrebbe essere corretto. In FileZilla ho inserito "ftp.sitoweb.it" e funziona.

Dove sbaglio?