Public Sub SearchDirectories(dir As DirectoryInfo, target As [String])
        Dim ds As New DataSet()
        Dim dt As New DataTable()
        Dim dr As DataRow = dt.NewRow()
        Dim dc As New DataColumn("a", GetType(String))
        dc = New DataColumn("b", GetType(String))
        dt.Columns.Add("a")
        dt.Columns.Add("b")

        Dim files As FileInfo() = dir.GetFiles()
        Dim i As Integer = 0
        For Each file As FileInfo In files
            If file.Name.ToLower().IndexOf(target.ToLower()) > -1 Then
                Dim f As String() = Directory.GetFiles((Server.MapPath("~") & "\file"), file.Name, SearchOption.AllDirectories)
                dt.Rows.Add(file.Name)
                dt.Rows(i)(1) = f(0)
                i += 1
            End If
        Next

        If dt.Rows.Count > 0 Then
            ds.Tables.Add(dt)
            GridView3.DataSource = ds
            GridView3.DataBind()
            ds.Dispose()
        Else
            GridView3.DataSource = Nothing
            GridView3.DataBind()

        End If
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim searchName As [String] = TextBox1.Text.ToString()
        Dim myDir As New DirectoryInfo(Server.MapPath("~") & "\file")
        SearchDirectories(myDir, searchName)
    End Sub