Pues eso… un artículillo "tesnico" para que no digas..
Esto lo publico a raíz de una pregunta en mis foros… y más que nada porque pensaba que ya lo tenía publicado, pero se ve que no… ya que tenía un ejemplo para acceder a un servidor FTP pero sólo para listar el contenido de un directorio FTP.
La cuestión es que en realidad ese código que publiqué con un par de añadidos sirve para poder descargar un archivo (o fichero) de un directorio FTP y aquí te los mostraré tanto para Visual Basic.NET como para Visual C#.
La clase en cuestión que nos sirve para hacer esto que te comento es FtpWebRequest que está definida en el espacio de nombres System.Net.
Y sin más preámbulos (ni rollos) aquí tienes el código de VB y C#.
¡Que lo descargues bien!
Código de VB
'------------------------------------------------------------------------------ ' Descargar archivos de un FTP (06/Dic/11) ' ' ©Guillermo 'guille' Som, 2011 '------------------------------------------------------------------------------ Option Strict On Option Infer On Imports System Imports System.Net Imports System.IO Imports System.Text Module Module1 Sub Main() ' En este ejemplo usamos un FTP público y anónimo ' pero puedes indicar el que quieras descargarFic("ftp://ftp.rediris.es/welcome.msg", _ "anonimous@nadie.com", "", _ "E:\pruebas2") Console.WriteLine("descargado") Console.ReadLine() End Sub Private Sub descargarFic(ByVal ficFTP As String, _ ByVal user As String, ByVal pass As String, _ dirLocal As String) Dim dirFtp As FtpWebRequest = CType(FtpWebRequest.Create(ficFTP), FtpWebRequest) ' Los datos del usuario (credenciales) Dim cr As New NetworkCredential(user, pass) dirFtp.Credentials = cr ' El comando a ejecutar usando la enumeración de WebRequestMethods.Ftp dirFtp.Method = WebRequestMethods.Ftp.DownloadFile ' Obtener el resultado del comando Dim reader As New StreamReader(dirFtp.GetResponse().GetResponseStream()) ' Leer el stream (el contenido del archivo) Dim res As String = reader.ReadToEnd() ' Mostrarlo. 'Console.WriteLine(res) ' Guardarlo localmente con la extensión .txt Dim ficLocal As String = Path.Combine(dirLocal, Path.GetFileName(ficFTP) & ".txt") Dim sw As New StreamWriter(ficLocal, False, Encoding.Default) sw.Write(res) sw.Close() ' Cerrar el stream abierto. reader.Close() End Sub Sub listarFTP(ByVal dir As String, ByVal user As String, ByVal pass As String) Dim dirFtp As FtpWebRequest = CType(FtpWebRequest.Create(dir), FtpWebRequest) ' Los datos del usuario (credenciales) Dim cr As New NetworkCredential(user, pass) dirFtp.Credentials = cr ' El comando a ejecutar dirFtp.Method = "LIST" ' También usando la enumeración de WebRequestMethods.Ftp dirFtp.Method = WebRequestMethods.Ftp.ListDirectoryDetails ' Obtener el resultado del comando Dim reader As New StreamReader(dirFtp.GetResponse().GetResponseStream()) ' Leer el stream Dim res As String = reader.ReadToEnd() ' Mostrarlo. Console.WriteLine(res) ' Cerrar el stream abierto. reader.Close() End Sub End Module
Código de C#
//----------------------------------------------------------------------------- // Descargar archivos de un FTP (06/Dic/11) // // ©Guillermo 'guille' Som, 2011 //----------------------------------------------------------------------------- using System; using System.Text; using System.Net; using System.IO; namespace descargar_archivos_FTP_cs { class Program { static void Main(string[] args) { descargarFic("ftp://ftp.rediris.es/welcome.msg", "anonimous@nadie.com", "", @"E:\pruebas2"); Console.WriteLine("descargado"); Console.ReadLine(); } static void descargarFic(string ficFTP, string user, string pass, string dirLocal) { FtpWebRequest dirFtp = ((FtpWebRequest)FtpWebRequest.Create(ficFTP)); // Los datos del usuario (credenciales) NetworkCredential cr = new NetworkCredential(user, pass); dirFtp.Credentials = cr; // El comando a ejecutar usando la enumeración de WebRequestMethods.Ftp dirFtp.Method = WebRequestMethods.Ftp.DownloadFile; // Obtener el resultado del comando StreamReader reader = new StreamReader(dirFtp.GetResponse().GetResponseStream()); // Leer el stream string res = reader.ReadToEnd(); // Mostrarlo. //Console.WriteLine(res); // Guardarlo localmente con la extensión .txt string ficLocal = Path.Combine(dirLocal, Path.GetFileName(ficFTP) + ".txt"); StreamWriter sw = new StreamWriter(ficLocal, false, Encoding.UTF8); sw.Write(res); sw.Close(); // Cerrar el stream abierto. reader.Close(); } static void listarFTP(string dir, string user, string pass) { FtpWebRequest dirFtp = ((FtpWebRequest)FtpWebRequest.Create(dir)); // Los datos del usuario (credenciales) NetworkCredential cr = new NetworkCredential(user, pass); dirFtp.Credentials = cr; // El comando a ejecutar dirFtp.Method = "LIST"; // También usando la enumeración de WebRequestMethods.Ftp dirFtp.Method = WebRequestMethods.Ftp.ListDirectoryDetails; // Obtener el resultado del comando StreamReader reader = new StreamReader(dirFtp.GetResponse().GetResponseStream()); // Leer el stream string res = reader.ReadToEnd(); // Mostrarlo. Console.WriteLine(res); // Cerrar el stream abierto. reader.Close(); } } }
Nos vemos.
Guillermo
…
pero eso no quiere decir que no lo empiece cómo "debe ser".
