Jan
12
Written by:
Steve Gray
1/12/2011 10:42 AM
Recently I needed to populate a grid with the all the files in a folder and link to them. Here is the code to do the work
Code Snippet
- Sub binddata()
- Dim strBaseFolder As String = Server.MapPath("\bulletins")
-
- Dim oDT As New DataTable
-
- 'create column 1
- Dim fileName As DataColumn = New DataColumn("fileName", System.Type.GetType("System.String"))
- oDT.Columns.Add(fileName)
-
- 'create column 2
- Dim fullPath As DataColumn = New DataColumn("fullPath", System.Type.GetType("System.String"))
- oDT.Columns.Add(fullPath)
-
- 'create column 3
- Dim relPath As DataColumn = New DataColumn("relPath", System.Type.GetType("System.String"))
- oDT.Columns.Add(relPath)
-
- For Each s As String In Directory.GetFiles(strBaseFolder)
- 'create the rows
- Dim oRow As DataRow
- oRow = oDT.NewRow
- oRow("fileName") = Path.GetFileName(s)
- oRow("fullPath") = s
- oRow("relPath") = "~/bulletins/" & Path.GetFileName(s)
- oDT.Rows.Add(oRow)
- Next s
-
- Dim oDV As DataView = oDT.DefaultView
- oDV.Sort = "fileName desc"
-
- Me.Grid1.DataSource = oDV
- Me.Grid1.DataBind()
-
- End Sub
As always, I welcome your comments!