Utilizzando questo codice riesco a scaricare sul mio server un file txt via ftp (protetto da user e password):

---

Dim myFtpWebRequest As FtpWebRequest
Dim myFtpWebResponse As FtpWebResponse
Dim myStreamWriter As StreamWriter

' scarico file txt
myFtpWebRequest = WebRequest.Create("ftp://ftp.xxx.com/xxx.TXT")

myFtpWebRequest.Credentials = New NetworkCredential("userid", "password")

myFtpWebRequest.Method = WebRequestMethods.Ftp.DownloadFile
myFtpWebRequest.UseBinary = True

myFtpWebResponse = myFtpWebRequest.GetResponse()

myStreamWriter = New StreamWriter(Server.MapPath("mdb-database\xxx.txt"))
myStreamWriter.Write(New StreamReader(myFtpWebResponse.GetResponseStream()).ReadToEnd)
myStreamWriter.Close()

---

Lo stesso sistema non funziona con un file xls ed ho trovato online un codice che scarica byte per byte il file:

---

Dim result As Byte()
Dim buffer As Byte() = New Byte(4095) {}

Dim wr As WebRequest = WebRequest.Create("ftp://ftp.xxx.com/xxx.xls")

wr.Credentials = New NetworkCredential("userid", "password")

Using response As WebResponse = wr.GetResponse()
Using responseStream As Stream = response.GetResponseStream()
Using memoryStream As New MemoryStream()
Dim count As Integer = 0
Do
count = responseStream.Read(buffer, 0, buffer.Length)

memoryStream.Write(buffer, 0, count)
Loop While count <> 0

result = memoryStream.ToArray()
End Using
End Using
End Using

---

Ora, immagino che il mio file sia result ... Ma come faccio a salvarlo sul mio server?

Grazie !!!

Grazie per la risposta!
Ho provato a mettere questo codice alla fine di quello postato:

Dim swXLS As New StreamWriter(Server.MapPath("xxx.xls"))
swXLS.Write(result.ToString())
swXLS.Close()

Ma non funziona (mi sembrava troppo semplice ^__^)

Ho il dubbio sulla mia supposizione che result sia il mio file xls...
Grazie per ... la pazienza.