Torna al Thread
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