Usar funciones Vb.Net en Asp e imprimir resultado en pantalla

Para el siguiente ejemplo utilizaremos la clase Funciones

Imports Microsoft.VisualBasic
Imports System.IO

Public Class Funciones

    Shared Function obtenerArchivosDirectorio(ByRef rutaArchivo As String) As List(Of String)

        Dim listaRutas As List(Of String) = New List(Of String)
        Dim ruta As String

        ruta = rutaArchivo

        Dim rutas As String

        rutas = Dir(ruta)

        Do While rutas <> ""
            listaRutas.Add(Path.GetDirectoryName(rutaArchivo) + "\" + rutas)
            rutas = Dir()
        Loop

        Return listaRutas

    End Function

End Class

Para usar el código en nuestro código asp solo debemos usar <%Codigo … %>

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>





     


    
<% Dim archivos = New List(Of String) archivos = Funciones.obtenerArchivosDirectorio("C:\*.*") HttpContext.Current.Response.Clear() For Each archivo As String In archivos HttpContext.Current.Response.Write("" + archivo + "
") Next HttpContext.Current.Response.End() %>

El resultado en pantalla será un listado de los archivos en ubicados en C:/

ejemplo resultado:

prueba.txt
prueba1.xls
prueba2.xml
prueba.doc

Espero sea de su utilidad.

Saludos

También te podría gustar...

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *