This sample takes files from a folder (in this situation, text files), and lists them in a listbox. Then, the user can click on a particular file, and display the text from the selected text file, in the textbox to the right of the listbox.
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<script runat="server">
Dim strFilePath As String
Dim objFileWriter As StreamWriter
Dim objStreamReader As StreamReader
Dim sContents As String = ""
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim strEntries() As String
Dim f As String
Dim FileName As String
strFilePath = Server.MapPath("/Yourpath/TextFiles/")
strEntries = Directory.GetFiles(strFilePath)If Not Page.IsPostBack Then
For Each f In strEntries
FileName = Path.GetFileName(f)
lstFiles.Items.Add(FileName)
Next
End If
End SubProtected Sub lstFiles_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
ReadFile()
End SubSub ReadFile()
objStreamReader = File.OpenText(strFilePath & _
lstFiles.SelectedItem.Value)
Dim contents As String = objStreamReader.ReadToEnd()
txtContent.Text = contents
objStreamReader.Close()
End Sub
</script><html>
<head runat="server">
<title>List and Show Text From Text Files</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table>
<tr>
<td>
<asp:ListBox ID="lstFiles" AutoPostBack="true" runat="server"
Height="150px" Width="93px"
OnSelectedIndexChanged="lstFiles_SelectedIndexChanged" />
</td>
<td>
<asp:Label ID="Label1" runat="server"></asp:Label><br />
<asp:TextBox ID="txtContent" TextMode="MultiLine"
runat="server" Height="115px" Width="374px"></asp:TextBox>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>