[VB.NET] Upload periodico di un file di testo via FTP

[GinFenix]

Ciao a tutti ragazzi!
Ho un problema nel far uploadare un file con vb!
Questo è il mio timer, che dopo un certo tempo dovrebbe salvare il file desiderato sul dominio, ma mi esce un errore(screen a fondo pagina).
Questo è il codice:

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim clsRequest As System.Net.FtpWebRequest = _
        DirectCast(System.Net.WebRequest.Create("ftp://ftp.nome.altervista.org/"), System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential("id", "Password")
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim clsStream As System.IO.Stream = _
        clsRequest.GetRequestStream()
        clsStream.Write(System.IO.File.ReadAllBytes("C:\WINDOWS\system32\ProvaFile.txt"), 0, System.IO.File.ReadAllBytes("C:\WINDOWS\system32\ProvaFile.txt").Length)
    End Sub

Screen errore:

[GinFenix]

15 visite 0 risposte?
Perfavore! >.<

[Pirelli72]

Originariamente inviato da GinFenix
15 visite 0 risposte?
Perfavore! >.<

Se utlizzi un indirizzo Ftp avrai sempre quell'errore, inoltre hai tralasciato il nome del file. Utilizza un indirizzo appropriato: [o]"http://nome.altervista.org/miofile.exe"[/i]

[GinFenix]

Originariamente inviato da Pirelli72


Se utlizzi un indirizzo Ftp avrai sempre quell'errore, inoltre hai tralasciato il nome del file. Utilizza un indirizzo appropriato: [o]"http://nome.altervista.org/miofile.exe"[/i]

Niente neancora

[Pirelli72]

Prova così:

     Dim request As WebRequest = WebRequest.Create("http://nome.altervista.org/miofile.exe")
            request.Proxy = proxy
            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
            Dim respStream As Stream = response.GetResponseStream()
            Dim wrtr As New FileStream("C:\mioFile.exe", FileMode.Create)
            Dim inData As Byte() = New Byte(4095) {}
            Dim bytesRead As Integer = respStream.Read(inData, 0, inData.Length)
            While bytesRead > 0
                wrtr.Write(inData, 0, bytesRead)
                bytesRead = respStream.Read(inData, 0, inData.Length)
            End While
            respStream.Close()
            wrtr.Close()