Obtener ruta de carpetas especiales en VBS

Foro de elhacker.net

Programación

Scripting

Obtener ruta de carpetas especiales en VBS

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Obtener ruta de carpetas especiales en VBS (Leído 7,715 veces)

aaronduran2

Desconectado

Mensajes: 790

Obtener ruta de carpetas especiales en VBS

« en: 27 Junio 2008, 18:17 pm »

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.


	En línea

Novlucker

Ninja y
Colaborador

Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces

Re: Obtener ruta de carpetas especiales en VBS

« Respuesta #1 en: 27 Junio 2008, 19:07 pm »

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

Código

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


	En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro."

Albert Einstein

Novlucker

Ninja y
Colaborador

Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces

Re: Obtener ruta de carpetas especiales en VBS

« Respuesta #2 en: 27 Junio 2008, 19:22 pm »

Me había faltado esta parte

Citar

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

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


« Última modificación: 27 Junio 2008, 19:34 pm por Novlucker »	En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro."

Albert Einstein

aaronduran2

Desconectado

Mensajes: 790

Re: Obtener ruta de carpetas especiales en VBS

« Respuesta #3 en: 27 Junio 2008, 20:38 pm »

Muchas gracias, Novlucker.


	En línea

Novlucker

Ninja y
Colaborador

Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces

Re: Obtener ruta de carpetas especiales en VBS

« Respuesta #4 en: 27 Junio 2008, 20:47 pm »

De nada...

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

Saludos


	En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro."

Albert Einstein

Zaraki_lkenpachi

Desconectado

Mensajes: 54

Re: Obtener ruta de carpetas especiales en VBS

« Respuesta #5 en: 21 Julio 2008, 22:45 pm »

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


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Obtener ruta UNC de una unidad mapeada con un bat. Scripting	xavial	0	4,802	13 Diciembre 2010, 23:32 pm por xavial
	Obtener ruta y nombre de archivo por el PID Programación C/C++	Distorsion	5	5,914	13 Enero 2011, 15:11 pm por Distorsion
	Ayuda en código para eliminar carpetas en una ruta específica. Scripting	Previsible	8	4,930	1 Diciembre 2013, 21:07 pm por Eleкtro
	[Python] shutil copy carpetas especiales windows Python	asdexiva	0	2,010	12 Julio 2014, 18:43 pm por asdexiva
	Ayuda crear carpetas en ruta C: Usuarios Windows7 Scripting	Rumaca	3	2,602	11 Mayo 2015, 00:05 am por Rumaca