Dim sFTPHost As String = "****"
        Dim mappath As String = System.AppDomain.CurrentDomain.BaseDirectory & _
          "map.php"
 
            ' Benutzername und Kennwort für den Server-Zugriff
            Dim sUserName As String = "***"
            Dim sPassword As String = "***"
 
 
    My.Computer.Network.DownloadFile(sfthost, mappatch, sUserName, sPassword, _
      False, 100, True)