Dim filePaths1() As String = Directory.GetFiles(Server.MapPath("~/abps_exam/download/") + Get_Cls_Nm(drrsMap("clsid")), "*" + Get_Sub_code(drrsMap("subid")) + "*", SearchOption.TopDirectoryOnly)
Dim files As List(Of ListItem) = New List(Of ListItem)
For Each filePath As String In filePaths1
files.Add(New ListItem(Path.GetFileName(filePath), filePath))
' MsgBox(Path.GetFileName(filePath))
Next
GridView1.DataSource = files
GridView1.DataBind()
folder location everytime change when loop return