copiar archivos desde listbox a una carpeta especifica

Question

hola como estan, espero que bien me gustaria saber como copiar los archivos agregados a un listbox a una carpeta espcifica tengo este codigo pero me da error:

 My.Computer.FileSystem.CreateDirectory(
  "C:\123")

        Dim source As String
        source = TextBox2.Text
        Dim di As New IO.DirectoryInfo(source)
        Dim fi As IO.FileInfo() = di.GetFiles("*.mp3")
        Dim file As IO.FileInfo
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1 ' loop through Listbox1
            If ListBox1.GetSelected(i) Then
                'Not sure about this line since I did not try a copy just ListBox1.text to a label
                System.IO.File.Copy(ListBox1.SelectedItem.fullname.ToString(i), source)
                ListBox1.SetSelected(i, True)
            Else
                MsgBox("File doesnt exists")
            End If
        Next i
        MsgBox("File(s) Copied")

el error que me da es que me sale el msgbox file doesnt exists por cada archivo agregado al listbox y luego me sale el siguiente msgbox file copied pero cuando reviso la carpeta c:\123 aparece creada pero sin archivos parece que como no esta leyendo los archivos del listbox me gustaria saber su correcion gracias.....

vb 2010

Answer 1

verifica bien la ruta de origen

comprueba que existen en el PC, con My.Computer.FileSystem.FileExists("ruta")

Answer 2

hola como estas feliz navidad y año nuevo podrias poner el codigo completo que funciona por favor te lo agradeceria mucho gracias.....