(Question) Archivos de Programa

[David]

Bueno, mi duda casi no es una duda, pero necesito la ayuda de alguno de ustedes que tenga Win98 o inferiores, y que si pueden ver la clave:
HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSION\
Si tiene el Valor ProgramFilesDir.

Pues quiero saber una forma de obtener el directorio de Archivos de Programa, o si hay alguna forma, que pueda ayudarme..... Gracias.....

[LeandroA]

Hola no se si funciona con win 98 o inferiores pero capas que si

es mediante WScript.Shell , SpecialFolders

Con SpecialFolders podemos obtener las Rutas de las carpetas especiales

Ej para cada caso

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


Ej para visualizar la ruta de de Archivos de Programas

Private Sub Form_Load()
Dim WScript As Object
Set WScript = CreateObject("WScript.Shell")
' obtenemos la ruta del destino de Archivos de Programas
MsgBox WScript.SpecialFolders("Programs")
Set WScript = Nothing
End Sub

[David]

Iniciado por LeandroA

Hola no se si funciona con win 98 o inferiores pero capas que si

es mediante WScript.Shell , SpecialFolders

Con SpecialFolders podemos obtener las Rutas de las carpetas especiales

Ej para cada caso

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


Ej para visualizar la ruta de de Archivos de Programas

Private Sub Form_Load()
Dim WScript As Object
Set WScript = CreateObject("WScript.Shell")
' obtenemos la ruta del destino de Archivos de Programas
MsgBox WScript.SpecialFolders("Programs")
Set WScript = Nothing
End Sub

Gracias por la ayuda pero.... Programs es para devolver la Ruta de Menú Inicio -> Programas......

[LeandroA]

mmmmmmm que tonto no lo havia provado, como havia leido programs pense que era archivos de programas

bueno perdona por la mala informacion,

te paso otra 2 formas:

MsgBox Environ("ProgramFiles")


o leer el registro que si es valida para win 98

Dim Objeto As Object
Set Objeto = CreateObject("wscript.shell")
LeerRegistro = Objeto.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Micros oft\Windows\CurrentVersion\ProgramFilesDir")
MsgBox LeerRegistro
Set Objeto = Nothing
End Sub

[David]

Iniciado por LeandroA

mmmmmmm que tonto no lo havia provado, como havia leido programs pense que era archivos de programas

bueno perdona por la mala informacion,

te paso otra 2 formas:

MsgBox Environ("ProgramFiles")


o leer el registro que si es valida para win 98

Dim Objeto As Object
Set Objeto = CreateObject("wscript.shell")
LeerRegistro = Objeto.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Micros oft\Windows\CurrentVersion\ProgramFilesDir")
MsgBox LeerRegistro
Set Objeto = Nothing
End Sub

Ok, Gracias...