File Directory ASP.Net Tutorial

<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>


    Sub Page_Load()
        lnkRandom.NavigateUrl = GetRandomFile()
    End Sub
    Function GetRandomFile() As String
        Dim files As String() = Directory.GetFiles(MapPath(Request.ApplicationPath), "*.aspx")
        Dim rnd As New Random()
        Dim rndFile As String = files(rnd.Next(files.Length))
        Return Path.GetFileName(rndFile)
    End Function
        



    Show HyperLink


    
    

    
            id="lnkRandom"
        Text="Random Link"
        Runat="server" />