ListView и работа с файлами

    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        Process.Start(ListView1.SelectedItems(0).Text)
    End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        ListView1.Items.Clear()
        Dim grs As String = ComboBox1.Text
        Dim Dir2() As String = IO.Directory.GetFiles("C:\ГРС\Справочный модуль\" & grs)
        For Each D As String In Dir2
            ListView1.Items.Add(IO.Path.GetFileName(D))
        Next
        Dim q As Integer = ListView1.Items.Count
        Dim v As String = IO.File.GetCreationTime("C:\ГРС\Справочный модуль\" & grs)
        Dim t As String = IO.Path.GetFileName("C:\ГРС\Справочный модуль\" & grs)
 
        For nomer As Integer = 0 To q - 1
 
            ListView1.Items(nomer).SubItems.Add(v)
            ListView1.Items(nomer).SubItems.Add(t)
 
        Next
    End Sub

 Private Sub КНОПКА_УДАЛИТЬ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КНОПКА_УДАЛИТЬ.Click
        If ComboBox1.Text = "" Then MsgBox("Нечего удалять, Вы не выбрали объектов для удаления !", vbCritical, "ОШИБКА")
        Dim grs As String = ComboBox1.Text
        For i = ListView1.Items.Count - 1 To 0 Step -1
            If ListView1.SelectedIndices.Contains(i) Then
                Dim bb As String = ListView1.Items(i).Text
                IO.File.Delete("C:\ГРС\Справочный модуль\" & grs & "\" & bb)
                ListView1.Items(i).Remove()
            End If
        Next
    End Sub

Private Sub КНОПКА_ПЕРЕИМЕНОВАТЬ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КНОПКА_ПЕРЕИМЕНОВАТЬ.Click
        If ComboBox1.Text = "" Then MsgBox("И кого мне переименовывать ?", vbCritical, "ОШИБКА")
        Dim grs As String = ComboBox1.Text
        For i = ListView1.Items.Count - 1 To 0 Step -1
            If ListView1.SelectedIndices.Contains(i) Then
                Dim bb As String = ListView1.Items(i).Text
                Dim NewName As String = InputBox("ВВЕДИТЕ НОВОЕ НАЗВАНИЕ ФАЙЛА БЕЗ РАСШИРЕНИЯ!")
                Dim расширение As String = Strings.Right(bb, 4)
                IO.File.Move("C:\ГРС\Справочный модуль\" & grs & "\" & bb, "C:\ГРС\Справочный модуль\" & grs & "\" & NewName & расширение)
                ListView1.Items(i).Remove()
                ListView1.Items.Clear()
 
                Dim Dir2() As String = IO.Directory.GetFiles("C:\ГРС\Справочный модуль\" & grs)
                For Each D As String In Dir2
                    ListView1.Items.Add(IO.Path.GetFileName(D))
                Next
                Dim q As Integer = ListView1.Items.Count
                Dim v As String = IO.File.GetCreationTime("C:\ГРС\Справочный модуль\" & grs)
                Dim t As String = IO.Path.GetFileName("C:\ГРС\Справочный модуль\" & grs)
 
                For nomer As Integer = 0 To q - 1
 
                    ListView1.Items(nomer).SubItems.Add(v)
                    ListView1.Items(nomer).SubItems.Add(t)
 
                Next
            End If
        Next
    End Sub

 Private Sub КНОПКА_ОТКРЫТЬ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КНОПКА_ОТКРЫТЬ.Click
        Dim grs As String = ComboBox1.Text
        For i = ListView1.Items.Count - 1 To 0 Step -1
            If ListView1.SelectedIndices.Contains(i) Then
                Dim bb As String = ListView1.Items(i).Text
                Process.Start("C:\ГРС\Справочный модуль\" & grs & "\" & bb)
 
            End If
        Next