Italian Esportare un file da App ad una cartella di un sito Web

Sub button3_click
    testo= nomemiofile
    If File.Exists(File.DirInternal,testo) Then
        ftp.Initialize("FTP","www.miosito.it/Public/cartelladest",21,"xxxxx@aruba.it","xxxxxx")
        ftp.PassiveMode = True
     ftp.UploadFile(File.DirInternal,testo,True,testo)
            
    End If
End Sub

testo=myfile
    if File.Exists(File.DirInternal,testo) Then
        ToastMessageShow(testo,False) ' qui mi restituisce il nome del file
        ftp.Initialize("FTP","www.miosito.it/Public/cartelladest",21,"xxxxx@aruba.it","xxxxxx")
          'ftp.PassiveMode = True
        
        Dim sf As Object = ftp.UploadFile(File.DirInternal, testo, False, testo")
    
        Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
        If Success Then
        ToastMessageShow("file trasferito",False)
        Else
            ToastMessageShow("Errore uploading",False)
        End If
    
    End If

HttpClient1.PostFile("https://" & sitomio & "/cartella/ricevi.asp?" & Parametri,cartellalocale,nomefile)

Sub button3_Click
    testo =nomefile
    
    If File.Exists(File.DirInternal,testo) Then
        Msgbox(testo,"ok_")
        ftp.Initialize("FTP","www.miosito.it/miosito.it/Public/cartelladest/",21,"xxxxx@aruba.it","xxxxxx")
        ftp.PassiveMode = True
        
        Dim sf As Object = ftp.UploadFile(File.DirInternal,testo,True,testo)
    
        Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
        If Success Then
        ToastMessageShow("file was uploaded successfully",False)
        Else
            Log("Error uploading file")
        End If
    
    End If

If File.Exists(File.DirInternal,testo) Then
        Msgbox(testo,"ok_")
        ftp.Initialize("FTP","www.miosito.it",21,"xxxxx@aruba.it","xxxxxx")
        ftp.PassiveMode = True
      
        Dim sf As Object = ftp.UploadFile(File.DirInternal,testo,True,"/miosito.it/Public/cartelladest/" & testo)
  
        Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
        If Success Then
            ToastMessageShow("file was uploaded successfully",False)
        Else
            Log("Error uploading file")
        End If
  
    End If

Private Sub FTP_GETLIST
    FTPList1.Initialize
    FTP.Initialize("FTP", "YourSite", Port, "User", "Password")
    FTP.PassiveMode = True
    FTP.List("YourFolder")
    FTP.Close
End Sub

Private Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    If Success = False Then
        Log ("No Connection" & LastException.Message)
    Else
        Log Connection.Text = "Connection established"
        For i = 0 To Folders.Length - 1
            Log(Folders(i).Name)
        Next
        For i = 0 To Files.Length - 1
            Log(Files(i).Name & ", " & Files(i).Size & ", " & DateTime.Date(Files(i).Timestamp))
            FTPList1.Add(Files(i).Name)
        Next
        Log (Files.Length & " file(s) found")
    End If
End Sub