20/09/2005, 20:08
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 351
Antigüedad: 19 años, 1 mes Puntos: 3 | |
| 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
Última edición por LeandroA; 20/09/2005 a las 23:44 |