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(filename)

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