Dim dirInfo2 As NewDirectoryInfo(Server.MapPath("///.\UploadFolder\"))
        Dim fileArray As FileInfo() = dirInfo2.GetFiles()
        Dim specificFile As FileInfo
        For Each specificFile In fileArray
            If specificFile.Extension = ".htm" Then
                'add to data source
                dgArticleList.DataSource = fileArray 'PROBLEM HERE
            End If
        Next specificFile
        dgArticleList.DataBind()

Dim basePath As String = Server.MapPath("~/")
Dim searchPattern As String = "*.aspx"

dgArticleList.DataSource = Directory.GetFiles(basePath, searchPattern)
dgArticleList.DataBind()

' Assumes you have basePath and searchPattern from example 1
Dim dirInfo As New DirectoryInfo(basePath)
dgArticleList.DataSource = dirInfo.GetFiles(searchPattern)
dgArticleList.DataBind()

Dim list = From f In New DirectoryInfo(basePath).GetFiles _
    Where f.CreationTime > DateTime.Now.AddHours(-24) _
    And f.LastAccessTime > DateTime.Now.AddMinutes(-10) _
    And f.Extension.EndsWith(".aspx", StringComparison.InvariantCultureIgnoreCase) _
    Select f

  dgArticleList.DataSource = list
  dgArticleList.DataBind()

Dim basePath As String = Server.MapPath("~/UploadFolder/")
Dim searchPattern As String = "*.*"

Dim dirInfo As New DirectoryInfo(basePath)
Dim fileArray As FileInfo() = dirInfo.GetFiles(searchPattern)

Dim specificFile As FileInfo
Dim secondArray As FileInfo

     For Each specificFile In fileArray
          If specificFile.Extension = ".htm" Or specificFile.Extension = ".ppt" Then
          'collect files with desired extensions
          secondArray.Add(specificFile)
          End If
     Next specificFile
dgArticleList.DataSource = secondArray
dgArticleList.DataBind()

Imports System.Collections.Generic

Dim specificFile As FileInfo
Dim filteredList As New List(Of FileInfo)

For Each specificFile In fileArray
  If specificFile.Extension = ".htm" Or specificFile.Extension = ".ppt" Then
    'collect files with desired extensions
    filteredList.Add(specificFile)
  End If
Next specificFile
dgArticleList.DataSource = filteredList
dgArticleList.DataBind()

For Each specificFile In fileArray
     If specificFile.Extension = ".txt" Or specificFile.Extension = ".doc" Then
          If specificFile.Name.StartsWith("1") Then
               specificFile.Replace(specificFile.FullName, "CSTLRK")
               'collect files with desired extensions and new name
               filteredList.Add(specificFile)
          End If
     End If
Next specificFile
dgArticleList.DataSource = filteredList
dgArticleList.DataBind()

ASPX PAGE
<Columns>
     <asp:TemplateColumn HeaderText="File Name">
          <ItemTemplate>
               <asp:HyperLink ID="hyprLnk1" runat="server" Target="_self" 
               Text='<%# ConvertFileName(Eval("Name")) %>'
               NavigateUrl="javascript:LoadIFrame('../../UploadFolder/{0}');">
               </asp:HyperLink>
          </ItemTemplate>
     </asp:TemplateColumn>
</Columns>

VB CODE-BEHIND
 Protected Function ConvertFileName(ByVal fileName As Object) As String
     Dim localFileName As String = CType(fileName, String)
          If localFileName.StartsWith("1") Then
               Return "CSTLRK"
          End If
     Return localFileName
End Function

[FileSummary.vb]
Public Class FileSummary
    Public Sub New(ByVal fileName As String)
        _fileName = fileName
    End Sub

    Private _fileName As String
    Public Property FileName() As String
        Get
            Return _fileName
        End Get
        Set(ByVal Value As String)
            _fileName = Value
        End Set
    End Property
End Class

Dim fileSummaries As New List(Of FileSummary)

For Each specificFile In fileArray
  If specificFile.Extension = ".txt" Or specificFile.Extension = ".doc" Then
    If specificFile.Name.StartsWith("1") Then
      fileSummaries.Add(New FileSummary("CSTLRK"))
    Else
      fileSummaries.Add(New FileSummary(specificFile.Name))
    End If
  End If
Next specificFile

dgArticleList.DataSource = fileSummaries
dgArticleList.DataBind()