Dim ftp As FtpWebRequest
ftp = DirectCast(WebRequest.Create("ftp://mio.it/test.txt"), FtpWebRequest)
ftp.Credentials = New NetworkCredential("user@name", "Pasword")
ftp.UseBinary = True
ftp.Method = WebRequestMethods.Ftp.DownloadFile
Dim sr As FileStream
sr = New FileStream(Application.StartupPath & "\test.txt", FileMode.Create, FileAccess.Write)

Rispondi quotando