I need to determine at runtime (VB6) if Visio 2003 is installed.  Does

anyone know if checking for the presence of the

"SOFTWARE\Microsoft\Office\11.0\Visio" registry key will do this

accurately?  Is there a better way to check for it being installed?



Thanks in advance,



Glen

how's checking if CreateObject("Visio.InvisibleApp.11") causes error?

To determine if any Visio version is installed you can use:

....

On Error Resume Next

Dim visObj As Visio.Application

Set visObj = GetObject( "Visio.Application")

If appObj Is Nothing Then

.....

If you like to get an invisible object you can replace "Visio.Application"

by "Visio.InvisibleApp".



The current version you can get by "Visio.Application.Version".



Ralph



"GMR" schrieb:



> I need to determine at runtime (VB6) if Visio 2003 is installed.  Does

> anyone know if checking for the presence of the

> "SOFTWARE\Microsoft\Office\11.0\Visio" registry key will do this

> accurately?  Is there a better way to check for it being installed?

>

> Thanks in advance,

>

> Glen

>

>

Thanks guys!