I have come across an issue.  I have solved it part of the way.  I needed to display the contents of a directory for the user when they click on a link (a folder).  That wasn’t too much of a problem.  Now I must also display the ‘most recent files’ in a list, but instead of listing all files all the time, I want to be able to just list the 10 most recent files.  There is my problem.  I have searched the Internet. I have found a way to go through the directories.  I have found a way to display the files in the order I need by using a datagrid and a third function.   I just need to limit how many files are displayed.  There are several functions that will accomplish this.  I will share them with you so they are all in one place.  First we have the originating function call:

Public Sub GetFiles(ByVal path As String)
        If File.Exists(path) Then
            ' This path is a file
            ProcessFile(path, path)
        ElseIf Directory.Exists(path) Then
            ' This path is a directory
            ProcessDirectory(path)
        End If
    End Sub

This in turn calls the following 2 functions:

Public Sub ProcessDirectory(ByVal targetDirectory As String)
Dim dirInfo As New DirectoryInfo(targetDirectory)
Dim newfiles() As FileInfo
'need to make this global so file are added in each loop
newfiles = dirInfo.GetFiles()
Dim f As FileInfo
' Process the list of files found in the directory.
'Array.Sort(newfiles, New CompareFileInfoDESC)
For Each f In newfiles
ProcessFile(f.Name, f.DirectoryName)
Next
' Recurse into subdirectories of this directory.
Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory)
For Each subdirectory As String In subdirectoryEntries
ProcessDirectory(subdirectory)
Next
End Sub

AND

Public Sub ProcessFile(ByVal path As String, ByVal dirname As String)
Dim fi As New FileInfo(dirname + "\" + path)
Dim filelink As String
If position <= 1 Then
Dim myDataColumn As DataColumn
myDataColumn = New DataColumn()
myDataColumn.DataType = Type.GetType("System.String")
myDataColumn.ColumnName = "Filename"
myfiledt.Columns.Add(myDataColumn)
myDataColumn = New DataColumn()
myDataColumn.DataType = Type.GetType("System.String")
myDataColumn.ColumnName = "Creationtime"
myfiledt.Columns.Add(myDataColumn)
End If
Dim row As DataRow
If Not dirname.EndsWith("_vti_cnf") Then
filelink = "" + fi.Name + "
"
row("filename") = filelink
row("creationtime") = fi.CreationTime
myfiledt.Rows.Add(row)
position += 1
End If
datagrid1.DataSource = AlphabeticSort(myfiledt, 1)
datagrid1.DataBind()
End Sub


The last function that I use is the sort function for the datatable. I need to sort the files by creationdate. Here is that code:


Private Function AlphabeticSort(ByVal dtTable As DataTable, ByVal sortOrder As Integer) As DataTable
Dim columnKey As String = "creationtime"
Dim sortDirection As String = ""
Dim sortFormat As String = "{0} {1}"
Select Case sortOrder
Case 0
sortDirection = "ASC"
Case 1
sortDirection = "DESC"
Case Else
sortDirection = "ASC"
End Select
dtTable.DefaultView.Sort = String.Format(sortFormat, columnKey, sortDirection)
Return dtTable.DefaultView.Table
End Function


When I add all these together I get almost what I need. Like I said, it lists all files. I need just the first 10 files to be listed. Somehow I need to add that functionality into the AlphabeticSort function to return the records I need. I thougt I would share with you what I have so far as it may help you. Any feedback is appreciated. Thank you.

Oh I almost forgot, you have to include the following lines of code above the
Public Sub Page_load.... or nothing will work:

Imports System.IO
Public Sub Page_load.....
Dim position As Integer = 1 ' for Public Sub ProcessFile ()
Dim myfiledt As DataTable = New DataTable()
Dim int As Integer = 0