(Question) Archivos de Programa

[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