copie de fichiers

Bonjour,

J'ai créé un ListView avec checkboxes et je souhaite copier les fichiers cochés. J'ai écrit le programme suivant :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i AsInteger

        If ListView1.CheckedItems.Count <> 0 Then

            For i = 0 To ListView1.CheckedItems.Count - 1

                Dim s AsString = ""

                s = IO.Path.GetFileName(ListView1.CheckedItems(i).ToString)

                Dim date1 AsDate = File.GetLastWriteTime(ListView1.CheckedItems(i).ToString)

                Dim date2 AsDate

                 If File.Exists("P:\BE\Thomas\essai copie\" & s) = TrueThen

                    date2 = File.GetLastWriteTime("P:\BE\Thomas\essai copie\" & s)

                    If date2 <> date1 Then

                        File.Copy(ListView1.CheckedItems(i).ToString, "P:\BE\Thomas\essai copie\" & s, True)

                    End If

                Else

                    File.Copy(ListView1.CheckedItems(i).ToString, "P:\BE\Thomas\essai copie\" & s, True)

                End If

            Next

        Else : MsgBox("Cochez une case pour copier")

        End If

    End Sub

Où le bouton1 est celui qui sert à copier.

Il n'y a pas d'erreur mais quand je tente de copier il apparait ceci : The given path's format is not supported en me parlant le la ligne en gras.

Merci d'avance pour toute aide