Private Sub Procedi()
        For i As Integer = 0 To FileList.Rows.Count - 1
            Dim str7 As String = FileList.Rows(i).Cells(1).Text
            str7 = System.Net.WebUtility.HtmlDecode(str7)
            Dim cbb As CheckBox
            cbb = DirectCast(FileList.Rows(i).Cells(0).FindControl("RowLevelCheckBox"), CheckBox)
            If cbb.Checked = True Then
                alist.Add(i)
                Dim FilesDeleted As Boolean = False
                Dim MyFileInfo As New FileInfo(Server.MapPath("~/File/") + str7)
                If MyFileInfo.Exists = True Then
                    MyFileInfo.Delete()
                    FilesDeleted = True
                    ClientScript.RegisterStartupScript(Me.GetType(), "AlertScript", "alert('File eliminati.');", True)
                End If
            End If
        Next
        BindGrid()
          End Sub

    Private Sub Ferma()
        ClientScript.RegisterStartupScript(Me.GetType(), "AlertScript", "alert('Seleziona file da eliminare.');", True)
    End Sub

    Private alist As New ArrayList()
    Protected Sub ImageButton3_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImageButton3.Click
        For i As Integer = 0 To FileList.Rows.Count - 1
            Dim row As GridViewRow = FileList.Rows(i)
            Dim isChecked As Boolean = DirectCast(row.FindControl("RowLevelCheckBox"), CheckBox).Checked
            If isChecked Then
                Procedi()
                Exit For
            End If
        Next
        Ferma()
    End Sub