<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
Dim FileCollection As String()
Dim myFileInfo As FileInfo
Dim i as integer
FileCollection = Directory.GetFiles("C:\WINNT","*.exe")
For i = 0 To FileCollection.Length - 1
myFileInfo = New FileInfo(FileCollection(i))
FileListBox.Items.Add(new ListItem(myFileInfo.Name.ToString()))
Next
End If
End Sub
EXE Files in Folder C:\WINNT: