Foro de elhacker.net

Hola. Quisiera saber como obtener la ruta de las carpetas especiales de Windows en VBS, tales como Configuración Local, Mi Música, etc... Solo soy capaz de conseguir la de Windows.

Gracias de antemano.

Para obtener las rutas especiales de las carpetas de windows debes de utilizar specialfolders, ej:

set wshshell = createobject("wscript.shell")
escritorio = wshshell.specialfolders("desktop")
msgbox escritorio

Como ves, con "desktop"(escritorio) obtengo la ruta del escritorio.

Los valores posibles para specialfolders son;

• AllUsersDesktop
• AllUsersStartMenu
• AllUsersPrograms
• AllUsersStartup
• Desktop
• Favorites
• Fonts
• MyDocuments
• NetHood
• PrintHood
• Programs
• Recent
• SendTo
• StartMenu
• Startup
• Templates

Saludos  ;)

Me había faltado esta parte  :P

Si miras el listado de valores para specialfolders, verás que no están las carpetas que mencionas, me paso a mi también en su momento el no encontrar las dichosas carpetas, es por eso que esta fue la única solución que se me ocurrió....

Las rutas a esas carpetas se guardan en el registro de windows, así que lo único que hay que hacer es leer la clave correspondiente  :P, aquí va el code

Set wshshell = createobject("wscript.shell")
 
imagenes = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures")
musica = wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Music")
 
msgbox "Mis imagenes ---> " & imagenes& chr(13) & "Mi musica ---> " & musica

Saludos otra vez ;D

Muchas gracias, Novlucker.

De nada...

Te recomiendo revisar la clave HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders ya que encontrarás varias carpetas interesantes  :P

Saludos

Muchas gracias por la recomendacion no sabia que en el registro habia rutas de carpetas  :D