Checklistbox Items Delete

Dim filelist As New List(Of String)
    Private Sub AddFile(ByVal Item As String)
        Dim F As New FileInfo(Item)
        CheckedListBox1.Items.Add(F.Name)
        filelist.Add(F.FullName)
    End Sub

    Private Sub RemoveFile(ByVal Index As Integer)
        File.Delete(filelist.Item(Index))
        CheckedListBox1.Items.RemoveAt(Index)
        filelist.RemoveAt(Index)
    End Sub

    Private Sub FillList(ByVal Path As String)
        Me.CheckedListBox1.Items.Clear()
        filelist = New List(Of String)
        For Each filepath As String In Directory.GetFiles(Path, "*.*", SearchOption.AllDirectories)
            AddFile(filepath)
        Next
    End Sub

    'Change all instances of CheckedListBox1 to your list box

    'To get all the files you need use FillList with the path as your directory tog et files from
    'This should populate the checkboxlist and it's sister list

    'The sister list contains the full file path where as the checkbox list only contains the name of the file

    'To remove checked files:

    Private Sub DeleteSelectedIndices()
        For Each i As Integer In CheckedListBox1.SelectedIndices
            RemoveFile(i)
        Next
    End Sub

Imports File.IO