Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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

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.