¿Ya lograste hacer lo que te comentó
Jhonnyf?.
Si así es, lo único que necesitas es recorrer el listado y copiar los archivos:
Código:
Dim Looping As Integer
For Looping = 0 To File1.ListCount - 1
FileCopy File1.Path & "\" & File1.List(Looping), "C:\carpeta\" & File1.List(Looping)
Next Looping