Obtener ruta de carpetas especiales en VBS

[aaronduran2]

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.

[Novlucker]

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

Código (vb) [Seleccionar] Expandir

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 

[Novlucker]

Me había faltado esta parte 

tales como Configuración Local, Mi Música, etc

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  , aquí va el code

Código (vb) [Seleccionar] Expandir

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

[aaronduran2]

Muchas gracias, Novlucker.

[Novlucker]

De nada...

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

Saludos

[Zaraki_lkenpachi]

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