gracias edu, justo lo que necesitaba
Saludos
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: seba123neo en 8 Marzo 2012, 03:51 AM
Hola, proba esto:Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim uri As New Uri("ftp://ftp.servidor.com/carpeta/hola.txt")
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(uri), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Proxy = Nothing
request.UseBinary = True
request.UsePassive = False
request.Credentials = New NetworkCredential("usuario", "password")
Dim vCadena As String = "Esto es una prueba de FTP"
Dim encoding As New System.Text.UTF8Encoding()
Dim fileContents() As Byte = encoding.GetBytes(vCadena)
request.ContentLength = fileContents.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(fileContents, 0, fileContents.Length)
requestStream.Close()
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
response.Close()
End Sub
End Class
saludos.