error al conectar al ftp

Iniciado por Takel, 20 Septiembre 2006, 13:31 PM

0 Miembros y 1 Visitante están viendo este tema.

Takel

bueno señores estoy haciendo un programita para automatizar un par de cosas q tengo q hacer en el trabajo.
Lo que quiero hacer es que me suba a un ftp un archivo determinado a cierta hora pero no consigo q me conecte bien me da un error en visual basic .net, les dejo el codigo


Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Namespace Examples.System.Net
    Public Class WebRequestGetExample
        Public Shared Sub Main()

            Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://10.1.1.205"), FtpWebRequest)
            request.Method = WebRequestMethods.Ftp.UploadFile



            request.Credentials = New NetworkCredential("anonymous", "taohjkljhkjh@asdas.com")



            Dim sourceStream As StreamReader = New StreamReader("edu2.txt")
            Dim fileContents() As Byte = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
            sourceStream.Close()
            request.ContentLength = fileContents.Length


            Dim requestStream As Stream
           requestStream = request.GetRequestStream()
            requestStream.Write(fileContents, 0, fileContents.Length)
            requestStream.Close()


            Dim response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)

            Console.WriteLine("Subiendo archivo, status {0}", response.StatusDescription)

            response.Close()
     
        End Sub
    End Class
End Namespace


Donde esta en rojo es donde me da error,, ¿alguien sabria que cojones le pasa a esto, me tiene ....?

Gracias de antemano

Takel

bueno me autocontestoy ademas es mas facil


Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Namespace Examples.System.Net
    Public Class WebRequestGetExample
        Public Shared Sub Main()

            Dim client As New Global.System.Net.WebClient

            client.Credentials = New Global.System.Net.NetworkCredential _
            ("asdfasd", "asdfasd")
            'client.DownloadFile("ftp://asdfd.com:13333/edu2/edu.txt", "C:\edu2.txt")
            client.UploadFile("ftp://asdfd.com:13333/edu2/edu.txt", "C:\edu.txt")
        End Sub
    End Class



End Namespace