listview - деление на название и путь

Dim Fold As New FolderBrowserDialog
        If Fold.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.ListBox1.Items.AddRange(System.IO.Directory.GetFiles(FoldD.SelectedPath, "*.docx", IO.SearchOption.AllDirectories))
        End If

OpenFileDialog2.ShowDialog()
            If OpenFileDialog2.ShowDialog() = Windows.Forms.DialogResult.OK Then
                For Each x As String In OpenFileDialog2.FileNames
                    Try
                        Dim ItemDetails As ListViewItem
                        ItemDetails = ListView1.Items.Add(IO.Path.GetFileName(x))
                        With ItemDetails
                            .SubItems.Add(x)
                        End With
                    Catch Exc As Exception
                        MsgBox(Exc.ToString)
                    End Try
                Next
 
            End If

Dim OFD As New OpenFileDialog()
        OFD.Multiselect = True
        If OFD.ShowDialog() = DialogResult.OK Then
            For Each x As String In OFD.FileNames
                Try
                    Dim ItemDetails As ListViewItem
                    ItemDetails = ListView1.Items.Add(IO.Path.GetFileName(x))
                    With ItemDetails
                        .SubItems.Add(x)
                    End With
                Catch Exc As Exception
                    MsgBox(Exc.ToString)
                End Try
            Next
        End If

Dim FocItm, UpItm As String
FocItm = ListView1.FocusedItem.Text
UpItm = ListView1.Items.Item(ListView1.FocusedItem.Index - 1).Text
ListView1.FocusedItem.Text = UpItm
ListView1.Items.Item(ListView1.FocusedItem.Index - 1).Text = FocItm

Dim index As Integer = listView1.SelectedItems(0).Index
listView1.Items(index + 1).Selected = True
listView1.Items(index).Selected = False

Dim Ind As Integer = ListView1.SelectedItems(0).Index
  If Ind <> 0 Then
  Dim TmpItm As ListViewItem = ListView1.Items(Ind - 1)
  ListView1.Items.Remove(TmpItm)
  ListView1.Items.Insert(Ind + (ListView1.SelectedItems.Count - 1), TmpItm)
End If

Dim Ind As Integer = ListView1.SelectedItems(ListView1.SelectedItems.Count - 1).Index
  If Ind <> ListView1.Items.Count - 1 Then
     Dim TmpItm As ListViewItem = ListView1.Items(Ind + 1)
     ListView1.Items.Remove(TmpItm)
     ListView1.Items.Insert(Ind - (ListView1.SelectedItems.Count - 1), TmpItm)
  End If

Dim Rnd As New Random
Dim FocItm As Integer
Dim ItmCount As Integer = ListView1.Items.Count
FocItm = Rnd.Next(ItmCount)
ListView1.FocusedItem = ListView1.Items.Item(FocItm)

ListView1.FocusedItem.Selected = True
ListView1.Focus()

ListView1.TopItem = ListView1.Items.Item(FocItm)

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, Ind As Integer
        Dim TmpItm As ListViewItem
        Randomize()
        For i = 0 To ListView1.Items.Count - 1
            Ind = CInt(Rnd() * (ListView1.Items.Count - 1) + 1)
            Me.Text = Ind.ToString
            TmpItm = ListView1.Items(i)
            ListView1.Items.Remove(TmpItm)
            ListView1.Items.Insert(Ind - 1, TmpItm)
 
        Next
 End Sub