' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/07/99 by grma
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\Assem1.SLDASM", 2)
' MSGBOX
' Unable to locate the file D:\Projects\altex\drawings\Part1.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file D:\Projects\altex\drawings\Part2.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file D:\Projects\altex\drawings\Part3.SLDPRT.  Would you like to find it yourself?

Set Part = swApp.ActivateDoc ("Assem1.SLDASM")
swApp.ExitApp
End Sub