جلب اسماء الملفات ومسارات من الحافظات وحفظها في قاعدة البيانات

Dim FiName as new directory.getfiles(server.map("~/Tutorial/")) 


        Dim FiNam() As String = Directory.GetFiles(Server.MapPath("~/Tutorial/"), "*pdf", SearchOption.AllDirectories)

        Dim files As List(Of ListItem) = New List(Of ListItem)

        For Each filelist As String In Finam

            files.Add(New ListItem(Path.GetFileName(filelist), filelist))

        Next

        GridView1.DataSource = files

        GridView1.DataBind()