Public Function DownloadFileFromFTPServer(ByVal SourcePathandFilename As _
      string , ByVal DestPathAndFileName As String, ByVal User As String, ByVal _
      Password As String) As Boolean
        Dim i_Uri As Uri = Nothing
        SourcePathandFilename = SourcePathandFilename.Replace("ftp://", "")
        i_Uri = New Uri("ftp://" & User & ":" & Password & "@" & _
          SourcePathandFilename)
        ' i_Uri = New Uri("ftp://" & SourcePathandFilename)
 
        If (i_Uri.Scheme <> Uri.UriSchemeFtp) Then
            Return False
        End If
 
        Dim request As System.Net.WebClient = New System.Net.WebClient()
        request.Credentials = New System.Net.NetworkCredential(User, Password)
 
        Try
            Dim newFileData() As Byte = request.DownloadData(i_Uri.ToString())
            Dim fileString As String = System.Text.Encoding.UTF8.GetString( _
              newFileData)
 
            Dim i_Data() As Byte = System.Text.Encoding.Default.GetBytes( _
              fileString)
 
            FileSpeichern(DestPathAndFileName, i_Data, _
              IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite, _
              IO.FileShare.ReadWrite)
 
            Return True
 
        Catch ex As System.Net.WebException
            Return False
        Catch ex As Exception
            Return False
        End Try
 
    End Function