Listar archivos en ASP .NET con VB

Mostrar en el navegador web los archivos de un directorio remoto o local con una página dinámica aspx usando System.Collection o System.IO, en Visual Studio 2017 con VB

ASP .NET tiene varias formas de acceder a los archivos y subcarpetas que están dentro de una carpeta. En este ejercicio se muestran dos maneras diferentes de listar lesos elementos, ambas se basan en código relativamente sencillo, comprensible por programadores no expertos.

Usando colecciones y la interfaz System.Collection.IEnumerator

Una colección (Collection) es un tipo especial de matriz o array especialmente preparado para unas tareas determinadas. Los objetos Collection se crean desde las clases e interfaces del espacio de nombres System.Collections. Algunas interfaces útiles de Collections son:

  • IEnumerator: para recorrer listas de valores
  • IList: para ordenar listas de valores
  • ICollection: para modificar listas de valores
  • ICloneable: para hacer copias de listas de valores.

En este ejercicio se usa la interfaz IEnumerator (que admite una iteración simple a través de una colección) y el método GetEnumerator (que devuelve un enumerador que puede iterar por una colección). IEnumerator es la interfaz base de todos los enumeradores. Los enumeradores sólo permiten la lectura de datos de la colección y no se pueden utilizar para modificar la colección (acceden a las matrices en modo de sólo lectura).
Inicialmente, el enumerador se coloca delante del primer elemento de la colección y mediante sus métodos podemos movernos por la lista:

  • Reset devuelve el enumerador a la posición inicial (delante del primer elemento)
  • MoveNext desplaza el enumerador al primer elemento antes de leer el valor de Current
  • Current devuelve el mismo objeto hasta que se llama a MoveNext o a Reset
  • MoveNext establece Current en el siguiente elemento.

Alcanzado el final, el enumerador se coloca después del último elemento. Un enumerador no tiene acceso exclusivo a la colección, ésto ha de ser tenido en cuenta en cuanto a la seguridad de los procedimientos (no proporciona gran seguridad). En el código de ejemplo se observa cómo se crea un array o lista para contener los nombres de los archivos del directorio pasado en una variable de cadena y también se crea un enumerador que itera a lo largo de los elementos de la lista; se puede obtener fácilmente el número de archivos del directorio contando el número de elementos de la lista (i = lista1.Length).

El objeto Response permite interaccionar servidor con cliente, su método Write envía resultados HTTP al navegador web cliente. Aquí lo utilizamos para ir enviando código HTML que va formateando una tabla cuyas celdas se irán rellenando con texto y resultados de la ejecución de código VB, aprovechando para formatear el aspecto del documento HTML gracias a múltiples Response.Write:

'array de cadenas para contener los nombres de los archivos del directorio
Dim lista1() As String
lista1 = System.IO.Directory.GetFiles(ruta)
'objeto IEnumerator que permitirá recorrer la lista de archivos
Dim lista2 As System.Collections.IEnumerator
'lista2 se forma desde el método GetEnumerator de lista1
'GetEnumerator construye un objeto enumerador que contiene:
' -  el número de versión de la colección
' - una referencia a los elementos de la colección
lista2 = lista1.GetEnumerator
'i: entero para contener el número de archivos del directorio
'j: entero para contener la longitud de la cadena ruta
i = lista1.Length
j = ruta.Length
' ...
' se va construyendo la página HTML con métodos Response.Write
' ...
'se van leyendo los elementos de la colección hasta el final de la misma
While lista2.MoveNext
	'lista.Current devuelve el nombre largo de archivo (con ruta incluida)
	'para dejar sólo el nombre corto de archivo (sin la ruta):
	' - si la variable ruta termina en \ se quita de lista.Current la longitud de la variable
	'(ruta termina en \ si se forma con ServerMapPath (ej: ruta = Server.MapPath("/img"))
	' - si la variable ruta NO termina en \ se quita de lista.Current la longitud de la variable más 1 carácter
	'(ruta NO termina en \ si se forma con la ruta como cadena sencilla (ej: ruta="C:\Windows")
	If ruta.EndsWith("\") Then
	    Response.Write(CStr(lista2.Current).Remove(0, (j)))
	Else
	    Response.Write(CStr(lista2.Current).Remove(0, (j + 1)))
	End If
End While


Usando File, Directory, FileInfo y DirectoryInfo de System.IO

El espacio de nombres System.IO contiene clases que facilitan el trabajo con archivos y carpetas:

  • File y Directory: contienen métodos estáticos. Los miembros de File y de Directory son miembros compartidos por lo que es más sencillo su uso pues no es necesario crear una instancia previa de su clase; sirven para crear, borrar y modificar archivos y carpetas: Exists, Copy, Move, Delete, OpenText, GetAttributes
  • FileInfo y DirectoryInfo: contienen métodos de instancia. por lo que es necesario crear un objeto para poder utilizar la clase; sus métodos sirven para extraer información de los atributos de archivos y carpetas: Name, FullName, CreationTime, etc…
  • Path: contiene métodos para administrar cadenas DirectoryInfo / archivo.

En este ejercicio se utilizan las clases FileInfo y DirectoryInfo junto a matrices para contener los nombres de las carpetas o archivos, para mostrar al usuario un listado de archivos contenidos en el directorio seleccionado y en los subdirectorios de primer nivel, de entre los que componen el sitio web del que forma parte esta aplicación. Es muy sencillo retocar el código para que muestre archivos de directorios locales del disco duro fuera de las carpetas que componen el servidor web pero para ello hay que tener permisos de acceso a esas carpetas, por lo que puede no funcionar sirviendo estas páginas desde Internet (el proveedor de los servicios tal vez no lo permita).

Mediante múltiples Response.Write y usando bucles For Each que recorren el directorio especificado en la ruta se va construyendo una tabla en la que se muestra la lista de archivos, clasificados por la carpeta contenedora, informando de su tamaño y fecha de creación y contando su número (por carpeta y el total)
Un array de String contiene los nombres de los archivos que hay en el directorio (pasado como argumento al método GetFiles de la clase Directory). Contando el número de elementos de ese array sabemos el número de archivos del directorio.
Se necesitan objetos del tipo FileInfo y DirectoryInfo para poder extraer información de archivos y carpetas.

Con un bucle For Each y un objeto de tipo FileInfo obtenemos la lista de archivos del directorio y extraemos información de cada archivo (nombre, tamaño y fecha de creación, por ejemplo). Con un segundo bucle For Each y un objeto DirectoryInfo obtenemos la lista de carpetas del directorio y extraemos el nombre de cada carpeta, para listar los archivos de cada carpeta con un tercer For Each y otro objeto de tipo FileInfo (ésto permite listar los archivos contenidos en el directorio elegido y en los subdirectorios de primer nivel).

Dim archivo, carpeta As String 'para el nombre de archivos y carpetas
Dim sArchivos(), sCarpetas() As String 'array con los nombres de archivos y carpetas
Dim carpetaInfo As DirectoryInfo 'objeto para extraer propiedades de las carpetas
Dim archivoInfo As FileInfo 'objeto para extraer propiedades de los archivos
'array con los nombres de archivo en el directorio actual
sArchivos = Directory.GetFiles(ruta)
sCarpetas = Directory.GetDirectories(ruta)
'número de archivos en el directorio
i = sArchivos.Length
'sección que lista los archivos que cuelgan directamente del directorio actual
'condiciones: listar sólo en carpetas con al menos 1 archivo
If i > 0 Then
	Response.Write("<b>Directorio " &amp; ruta2 &amp; " [archivos: " &amp; i &amp; "</b>]")
End If

'Obtener lista de archivos contenidos en el directorio actual y sus propiedades
For Each archivo In sArchivos
	archivoInfo = New FileInfo(archivo)
	Response.Write("<td bgcolor=Gainsboro>" &amp; archivoInfo.Name &amp; "</td>")
	Response.Write("<td bgcolor=Gainsboro align=right>" &amp; archivoInfo.Length.ToString("#,#") &amp; " bytes</td>")
	Response.Write("<td bgcolor=Gainsboro align=center>" &amp; archivoInfo.CreationTime.ToShortDateString &amp; "</td>")
	Response.Write("<td bgcolor=Gainsboro align=center>" &amp; archivoInfo.CreationTime.ToLongTimeString &amp; "</td></tr>")
Next

'Obtener lista de directorios del directorio actual 
For Each carpeta In sCarpetas
	carpetaInfo = New DirectoryInfo(carpeta)
	'array con nombres de archivos en cada directorio
	sArchivos = Directory.GetFiles(carpeta)
	'número de carpetas en el directorio
	j = sArchivos.Length
	'sección que lista las carpetas que cuelgan directamente del directorio
	'condición: listar sólo en carpetas con al menos 1 archivo
	'If j > 0 Then
	If ruta2 = "/" Then
	    Response.Write("<b>Directorio " &amp; ruta2 &amp; carpetaInfo.Name &amp; " [archivos: " &amp; j &amp; "</b>]")
	ElseIf ruta2.StartsWith("C:\") Then
	    Response.Write("<b>Directorio " &amp; ruta2 &amp; "\" &amp; carpetaInfo.Name &amp; " [archivos: " &amp; j &amp; "</b>]")
	Else
	    Response.Write("<b>Directorio " &amp; ruta2 &amp; "/" &amp; carpetaInfo.Name &amp; " [archivos: " &amp; j &amp; "</b>]")
	End If
	'calcular el número total de archivos que hay en los directorios
	i += j
	'obtener lista de archivos contenidos en los directorios de primer nivel
	'sección que lista los archivos de esos directorios
	For Each archivo In Directory.GetFiles(carpeta)
	    archivoInfo = New FileInfo(archivo)
	    Response.Write("<tr bgcolor=Gainsboro><td>/" &amp; carpetaInfo.Name &amp; "/" &amp; archivoInfo.Name &amp; "</td>")
	    Response.Write("<td bgcolor=Gainsboro align=right>" &amp; archivoInfo.Length.ToString("#,#") &amp; " bytes</td>")
	    Response.Write("<td bgcolor=Gainsboro>" &amp; archivoInfo.CreationTime.ToShortDateString &amp; "</td>")
	    Response.Write("<td bgcolor=Gainsboro>" &amp; archivoInfo.CreationTime.ToLongTimeString &amp; "</td></tr>")
	Next
Next


Código común a ambos métodos

La página aspx presenta al usuario un cuadro de texto en el que se introduce la ruta a una carpeta del servidor web (incluido el directorio raíz /) o a una carpeta del disco duro, teniendo en cuenta que, ejecutada desde Internet, esta aplicación intenta acceder a contenidos que, dependiendo de la configuración del servidor web, es posible que no sean accesibles por no tener permisos suficientes para ello; es recomendable descargar la aplicación a nuestro disco duro y probarla desde ahí. Se necesitan variables (String para los nombres de archivos y carpetas y arrays para contener las listas de archivos y carpetas y poder contarlos):

Dim archivo, carpeta As String 'para el nombre de archivos y carpetas
Dim sArchivos(), sCarpetas() As String 'array con los nombres de archivos y directorios
Dim a, b As Integer 'para llevar la cuenta del nº de archivos

Se crea el título de la página web en tiempo de ejecución, al cargar la página:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Response.Write("<HEAD><TITLE>Listado de archivos</TITLE></HEAD>")
End Sub

La propiedad text del cuadro de texto se pasa, en el código Visual Basic, a una variable String que ayuda a construir la ruta hacia el directorio usando Server.MapPath():

'ruta relativa al directorio cuyos archivos se van a listar
Dim ruta2 As String
'asignación del texto del TextBox
ruta2 = txt.Text
'cadena que almacena la ruta dentro del servidor web
Dim ruta As String = Server.MapPath(ruta2)


Código para descargar la aplicación

Por último, se propone una manera diferente a la habitual para descargar el archivo comprimido zip. El método clásico mediante código HTML es conocido:

<A HREF="archivos.zip"></A>

En este ejercicio se hace usando código .NET. En la página aspx se asocia el evento ONCLICK de un botón con el método zip:

<ASP:BUTTON ID="bt5" RUNAT="server" TEXT="Aplicación completa en Visual Studio 2003" ONCLICK="zip"></ASP:BUTTON>

En el código VB se desarrolla el método zip usando Response.Redirect para descargar el archivo:

'descargar el archivo zip con la aplicación completa
Sub zip(ByVal sender As System.Object, ByVal e As System.EventArgs)
Response.Redirect("archivos.zip", True)
End Sub

Proyecto completo en Visual Studio 2017: aquí.

Deja un comentario

Tu dirección de correo electrónico no será publicada.