Scaricare file da un sito all'altro e problemi con My.Computer.Network...

mercoledì 28 gennaio 2009 - 23.39

cosmopsis Profilo | Junior Member

Ho a disposizione 2 siti. Nel primo ho una cartella contenente dei file di testo; questi li voglio trasferire in un'altra cartella di un secondo sito; sul secondo sito gira l'applicazione che trasferisce i file.
Ho scritto questo (ho cambiato i dati di autenticazione per ovvi motivi):

---------------------------------------
Protected Function trasferisciFile() As Boolean

Dim host As String = "ftp://ftp.xxxxxxxxxx.xx/../bla/bla/Bla"
Dim fileDa As String = ""
Dim fileA As String = ""

' "percorso" è definito nel web.config
URL = System.Configuration.ConfigurationManager.AppSettings("percorso")


Dim ftp As FtpWebRequest = FtpWebRequest.Create(host)
ftp.Credentials = New NetworkCredential("1111111@xxxxx.xx", "123456789")
ftp.Method = WebRequestMethods.Ftp.ListDirectory

Try
Dim sr As New StreamReader(ftp.GetResponse().GetResponseStream())
Dim str As String = sr.ReadLine()
While Not str Is Nothing
str = sr.ReadLine()

fileDa = host & str
fileA = URL & str

My.Computer.Network.DownloadFile(fileDa, fileA, _
"1111111@xxxxx.xx", "123456789", _
False, 100000, True)

End While
sr.Close()
sr = Nothing
ftp = Nothing
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Function

---------------------------------------

e questo funziona grossomodo; solo che va randonicamente in errore! L'istruzione "My.Computer.Network.DownloadFile" dà problemi avvertendomi che non sono stati definiti i parametri necessari (?). In parole povere: trasferisce alcuni file e si blocca prima di arrivare alla fine della cartella; il file che fa andare in errore cambia ogni volta. In cosa sbaglio?
ciao
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5