Visual Basic - copiar dos imagenes a otra carpeta

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Fco. Javier Medrano Salez

copiar dos imagenes a otra carpeta

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 28/08/2012 15:41:13
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

copiar dos imagenes a otra carpeta

Publicado por Iñaki (502 intervenciones) el 30/08/2012 00:20:23
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Fco. Javier Medrano Salez

copiar dos imagenes a otra carpeta

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 30/08/2012 19:38:13
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

copiar dos imagenes a otra carpeta

Publicado por jcmg (518 intervenciones) el 01/09/2012 06:55:18
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Fco. Javier Medrano Salez

copiar dos imagenes a otra carpeta

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 11/09/2012 19:49:17
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

copiar dos imagenes a otra carpeta

Publicado por luis (1 intervención) el 18/03/2014 01:54:16
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar