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