Visual Basic - copiar dos imagenes a otra carpeta

Hola señores expertos:
Tengo una duda y problema, ya pude copiar una imagen de una carpeta a otra por código, mediante un bucle recorro todos los alumnos, agarro su nombre, lo asocio con el nombre de su foto y la copio a otra carpeta, todos los alumnos los copia, pero al agregar que del mismo alumno me copie una imagen de su curp ya no lo hace, tengo este código:

Do While Not Rs.EOF
On Error Resume Next
If Rs!grado = "3° A" Or Rs!grado = "3° B" Or Rs!grado = "3° C" Or Rs!grado = "3° D" Then
deudor = Rs!foto
Origen = App.Path & "\fotos\" & deudor
destino = ruta & "\" & año & "\"
fso.MoveFile Origen, destino ''''' ésto si lo hace bien, copia la imagen en otra carpeta
regfed = Rs!curp
Origen = App.Path & "\fotos\" & regfed '''' asigna la curp (es una imagen en la misma carpeta)
fso.MoveFile Origen, destino '''''' esto ya no lo hace
End If
Rs.MoveNext
Loop


Ojalá alguien pueda ayudarme a resolver esta duda o darme alguna sugerencia.
GRACIAS de antemano.

Has comprobado los nombres de las carpetas?,
RefFed , recoge el valor de Rs!curp, contiene algun caracter que no este soportado por windows?
Puedes comprobar estos valores mediante Msgbox,
Tambien puedes intentar copiar manualmente para ver si da algun error.

Hola Iñaki,
He comprobado todo lo que me dijiste:

- el valor de curp son solo numeros y letras, soportados por windows
- recojo el valor de curp en un msgbox y me lo da perfectamente
- recojo el nombre de la imagen de regfed y tambien me lo da perfecto
- corto y pego manualmente la imagen de curp de una carpeta a la otra y tambien me lo hace perfectamente.

No me explico qué es lo que estoy haciendo mal, ojalá me sigas ayudando o alguien del foro.
Gracias nuevamente.

intentale asi y a ver que pasa

Do While Not Rs.EOF
On Error Resume Next
If Rs!grado = "3° A" Or Rs!grado = "3° B" Or Rs!grado = "3° C" Or Rs!grado = "3° D" Then
deudor = Rs!foto
Origen = App.Path & "\fotos\" & deudor
destino = ruta & "\" & año & "\"
fso.MoveFile Origen, destino ''''' ésto si lo hace bien, copia la imagen en otra carpeta
regfed = Rs!curp
Origen2 = App.Path & "\fotos\" & regfed '''' asigna la curp (es una imagen en la misma carpeta)
fso.MoveFile Origen2, destino '''''' esto ya no lo hace
End If
Rs.MoveNext
Loop

Gracias amigos, he resuelto mi problema de manera muy sencilla:
resulta que agregando la extensión ".jpg" a cada imagen ya no hubo problema.
Gracias de nuevo a todos

hola viejo como va eso, che lei tu problema me interesa hacer algo parecido al lo tuyo no entiendo que es fso le pasas 2 direcciones no se si me podes dar una mano gracias