Can't open Visio file

[Dan]

Shirley,

Try this:

Dim oApp As Object
Dim FilePath As String

Set oApp = New Visio.Application
FilePath = "G:\0-GTI-Telecom\B-Diagram\Site Visio
Diagrams 20020220vsd.vsd"

oApp.Documents.Open FilePath


Make sure the reference to the Visio Type Library is
turned on.