Tiene que alcanzar con algo como esto
Set objshell = createobject("wscript.shell")
Set objFso = createobject("scripting.filesystemobject")
'Declaramos los objetos
Imagenes = objshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures")
'Como no hay una variable de sistema para Mis Imágenes,
'leemos la clave del registro que guarda la ruta para poder obtenerla
objFso.movefile Imagenes & "\*.*","C:\Carpetadestino"
'Movemos todos los archivos que se encuentran dentro de Mis imágenes
'Tener en cuenta que mueve solamente los archivos sueltos
Te lo he comentado para que quede más claro
Pruebalo y me cuentas
Saludos
P.D: Por cierto, este tema debería de estar en
Programación general>Scripting
Autor
En línea
.. pero una cosa buscando en el registro trate de encontrar la ruta de mis archivos recividos pero nada! :S... sabes donde encuentro esa ruta?
