Pueden revisar la siguiente macro

Estimados, ocupo la siguiente macro para mover archivos, pero quisiera que al momento de moverlos los enumere para que no se repitan y los mueva todos.

Sub mover_archivo()
' mover archivos
Dim obj_FSO As Object
ChDir "d:\traspaso"
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
obj_FSO.MoveFile Source:="d:\traspaso\*.*", Destination:="d:\respaldo interfaz"
Set obj_FSO = Nothing
If Err.Number = 53 Then MsgBox "El archivo no existe", vbCritical
End Sub