Удалить изображение из папки, используя имя файла в vb.net

Question

У меня есть резервная папка, в которой я сохраняю изображения при их загрузке.Поэтому мне нужно удалить изображение из папки резервной копии при удалении из отмеченного списка.

Так как мне это сделать?

 If CheckedListBox1.Items.Count = 0 Then
        MsgBox("Please load the images", MsgBoxStyle.Critical)
    Else
        If Thumbcontrol1.SelectedThumbnail Is Nothing Then
            MsgBox("Please select the thumbnail to remove", MsgBoxStyle.Information)
        Else
            CheckedListBox1.Items.Remove(CheckedListBox1.SelectedItem)
            Thumbcontrol1.RemoveSelectedThumbnail()

            If CheckedListBox1.Items.Count > 0 Then
                CheckedListBox1.SelectedIndex = CInt(index)
            End If
            If CheckedListBox1.Items.Count = 0 Then
                Thumbcontrol1.BackgroundImage = My.Resources.backimage
                frmDisplay.GCanvas1.Image = Nothing
            End If
        End If
    End If

Answer 1

Вы можете использовать методы в классе System.IO.File, чтобы удалить файл, указав путь к файлу для метода.

System.IO.File.Delete("path\to\file")

Answer 2

System.IO.File.Delete (имя файла)

Answer 3

Imports System.Data.OleDb
Public Class Form2
    Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dv.accdb;")
    Dim cm As New OleDbCommand

    Dim bytImage() As Byte


    Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
        Dim dialog As New OpenFileDialog()
        dialog.Title = "Browse Picture"
        dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
        If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(dialog.FileName)
        End If
    End Sub

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Try
            Dim ms As New System.IO.MemoryStream
            Dim bmpImage As New Bitmap(PictureBox1.Image)

            bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
            bytImage = ms.ToArray()
            ms.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cn.Open()
        cm.Connection = cn
        cm.CommandType = CommandType.Text
        cm.CommandText = "INSERT INTO `pic1` (pic) VALUES (@image)"
        cm.Parameters.AddWithValue("@image", bytImage)
        cm.ExecuteNonQuery()
        cn.Close()
        MsgBox("Image Saved.")
    End Sub