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

使用vb.net中的文件名从文件夹中删除图像

3 个答案: