Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ricardovinzo en 7 Junio 2008, 05:01 am



Título: como acceder a mis imagenes y mover imagenes a una carpeta en C:\
Publicado por: ricardovinzo en 7 Junio 2008, 05:01 am
bueno como puedo hacer lo que dice en el titulo desde VBS? como podria acceder a mis imagenes?...

Grax


Título: Re: como acceder a mis imagenes y mover imagenes a una carpeta en C:\
Publicado por: Novlucker en 7 Junio 2008, 05:29 am
Tiene que alcanzar con algo como esto

Código:
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


Título: Re: como acceder a mis imagenes y mover imagenes a una carpeta en C:\
Publicado por: ricardovinzo en 7 Junio 2008, 21:59 pm
jaja grax man esto me va a servir y gracais a ti aprendi nuevas cosas! ;D.. pero una cosa buscando en el registro trate de encontrar la ruta de mis archivos recividos pero nada! :S... sabes donde encuentro esa ruta?


Título: Re: como acceder a mis imagenes y mover imagenes a una carpeta en C:\
Publicado por: seba123neo en 9 Junio 2008, 00:03 am
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.