Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder = objFSO.GetFolder("E:\Sample")
Dim dt As New DataTable
Dim FileName As DataColumn = New DataColumn("File Name")
FileName.DataType = System.Type.GetType("System.String")
Dim DateModified As DataColumn = New DataColumn("Date Modified")
DateModified.DataType = System.Type.GetType("System.DateTime")
dt.Columns.Add(FileName)
dt.Columns.Add(DateModified)
Dim objFile
For Each objFile In objFolder.Files
Dim dr As DataRow
dr = dt.NewRow()
dr.Item("File Name") = objFile.Name
dr.Item("Date Modified") = objFile.DateLastModified
dt.Rows.Add(dr)
Next
Dim dv As DataView
dv = New DataView
dv = dt.DefaultView
dv.Sort = "Date Modified"
GridView1.DataSource = dt
GridView1.DataBind()
objFolder = Nothing
objFSO = Nothing
GridView1.Visible = True
Button1.Visible = False
Button2.Visible = True
End Sub