Module mdlFTP
 
    'erfundene Zugangsdaten
    Dim id As String = "admin"
    Dim pw As String = "007"
    Const localFile As String = "F:\Sprüh.prg"
    Const remoteFile As String = "/WD1_Data/RoboProgs/prog.prg"
    Const host As String = "ftp://myhome.sytes.net"
 
    Public Function DownloadRoboProg() As Boolean
        Try
            Dim web As New Net.WebClient
            web.Credentials = New Net.NetworkCredential(id, pw)
            web.DownloadFile(host & remoteFile, localFile)
            Debug.Print("True")
            Return True
        Catch ex As Exception
            Debug.Print("False")
            Return False
        End Try
    End Function
End Module