Estoy creando un programa para seleccionar un fichero, y una vez seleccionado al pulsar un botón subirlo a un servidor vía ftp. El problema es que no se como se sube el fichero, y no encuentro nada de código para orientarme. Si alguien puede ayudarme, se lo agradezco.
Saludos

[color=#0000ff size=2][/color]
Buenas elpelanas ,
Te copio una clase que he echo recientemente, donde su fin es conectar con un ftp y subir un achivo a un ftp.
Espero que te sea util y si quieres el programa lo puse en la seccion de descagas: http://www.canalvisualbasic.net/foru....asp?TID=31211

Te copio el codigo.

Un Saludo

Salvador Anaya
www.microzep.com



Imports System.io
[color=#0000ff size=2]Imports[/color] System.Net
[color=#0000ff size=2]Public[/color] [color=#0000ff size=2]Class[/color] FTP


[color=#0000ff size=2]Public[/color] [color=#0000ff size=2]Function[/color] ConexionFTP([color=#0000ff size=2]ByVal[/color] strFTP [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], [color=#0000ff size=2]ByVal[/color] strDirectorioFTP [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], _


[color=#0000ff size=2]ByVal[/color] strUsuario [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], [color=#0000ff size=2]ByVal[/color] strContraseña [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color]) [color=#0000ff size=2]As[/color] FtpWebRequest


[color=#008000 size=2]'Declaro la variable para crear la subida pasandole el ftp y el directorio donde quiero almacenarlo[/color]


[color=#0000ff size=2]Dim[/color] FTPRequest [color=#0000ff size=2]As[/color] FtpWebRequest = [color=#0000ff size=2]CType[/color](WebRequest.Create _


(strFTP & [color=#800000 size=2]"/"[/color] & strDirectorioFTP), FtpWebRequest)


[color=#008000 size=2]'En esta variable le creamos las credenciales pasansole el nombre de usuario y contraseña[/color]


FTPRequest.Credentials = [color=#0000ff size=2]New[/color] NetworkCredential(strUsuario, strContraseña)


[color=#0000ff size=2]Return[/color] FTPRequest


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Function[/color]


[color=#0000ff size=2]Public[/color] [color=#0000ff size=2]Function[/color] Subir([color=#0000ff size=2]ByVal[/color] strFTP [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], [color=#0000ff size=2]ByVal[/color] strDirectorioFTP [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], _


[color=#0000ff size=2]ByVal[/color] strUsuario [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], [color=#0000ff size=2]ByVal[/color] strContraseña [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color], [color=#0000ff size=2]ByVal[/color] strDirectorioLocal [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color]) [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean[/color]


[color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]Dim[/color] FTPRequest [color=#0000ff size=2]As[/color] FtpWebRequest = ConexionFTP(strFTP, strDirectorioFTP, strUsuario, strContraseña)


[color=#008000 size=2]'Le especificamos el metodo, en nuestro caso será una subida[/color]


FTPRequest.Method = WebRequestMethods.Ftp.UploadFile





[color=#008000 size=2]'Especificamos el archivo que queremos subir[/color]


[color=#0000ff size=2]Dim[/color] archivo() [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Byte[/color] = File.ReadAllBytes(strDirectorioLocal)
[color=#0000ff size=2]Dim[/color] str2 [color=#0000ff size=2]As[/color] Stream = FTPRequest.GetRequestStream()


[color=#008000 size=2]'Escribimos el archivo en el servidor ftp[/color]


str2.Write(archivo, 0, archivo.Length)


[color=#008000 size=2]'Cerramos[/color]


str2.Close()


str2.Dispose()


[color=#0000ff size=2]Return[/color] [color=#0000ff size=2]True[/color]


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] Exception


[color=#0000ff size=2]Return[/color] [color=#0000ff size=2]False[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Function[/color]

Gracias salvador.
Mañana lo echo un vistazo.
Saludos

No hay por que darlas. Espero que te sea util.

Un saludo,


Salvador Anaya
www.microzep.com