Advertisement
Advertisement
| 07.07.2008 at 01:23AM PDT, ID: 23542672 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: |
Protected Sub ButtonDeleteImage_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Me.LabelMessageImage.Text = ""
Dim ImgName As String = Me.LabelFileName.Text
If ImgName IsNot Nothing Then
Dim FilePath As String = Request.PhysicalApplicationPath & "Images/Uploaded/" & ImgName
File.Delete(FilePath)
If File.Exists(FilePath) Then
Me.LabelMessageImage.Text = "Image has NOT been deleted"
Else
Me.ListBoxImages.DataSource = Getfiles(Request.PhysicalApplicationPath & "Images/Uploaded/")
Me.ListBoxImages.DataBind()
Me.LabelMessageImage.Text = "Image has successfully deleted"
Me.LabelImgUrlForLink.Text = ""
Me.LabelFileName.Text = ""
Me.LabelTotalImages.Text = "Total Number of Images stored is: " & Me.ListBoxImages.Items.Count.ToString
End If
Else
Me.LabelMessageImage.Text = "Please Select the image by clicking on the above list"
End If
End Sub
|