Dim myDirInfo As DirectoryInfo
Dim arrFileInfo As Array
Dim myFileInfo As FileInfo
myDirInfo = New DirectoryInfo(Server.MapPath("MyFiles/"))
arrFileInfo = myDirInfo.GetFiles("*.txt")
For Each myFileInfo In arrFileInfo
Me.lblText.Text = Me.lblText.Text & (myFileInfo.Name & "<br>")
Next myFileInfo
myDirInfo = Nothing