como acceder a mis imagenes y mover imagenes a una carpeta en C:\

[ricardovinzo]

bueno como puedo hacer lo que dice en el titulo desde VBS? como podria acceder a mis imagenes?...

Grax

[Novlucker]

Tiene que alcanzar con algo como esto

Código [Seleccionar] Expandir

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

[ricardovinzo]

jaja grax man esto me va a servir y gracais a ti aprendi nuevas cosas! .. pero una cosa buscando en el registro trate de encontrar la ruta de mis archivos recividos pero nada! :S... sabes donde encuentro esa ruta?

[seba123neo]

Hola,por ahi no todos tenemos las mismas rutas,para accederla sin importar la ruta ,usa un codigo que posteo hace poco cobein y yo puso una lista de las constantes,estas constantes permiten ubicar las carpetas mas importantes del sistema,entre ellas la de mis documentos,my pictures,etc...

saludos.