21/09/2005, 10:05
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años Puntos: 839 | |
Cita:
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... |