' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/12/01 by kiwi
' ******************************************************************************

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 ("\\Tornado\dorado\Drawings\600024-Dorado\drawings\New Micro\Cap.Micro.Housing.SLDPRT", 1)
' MSGBOX
' Cannot open \\Tornado\dorado\Drawings\600024-Dorado\drawings\New Micro\Cap.Micro.Housing.SLDPRT.
' 
Future Version

Set Part = swApp.OpenDoc ("\\Tornado\dorado\Drawings\600024-Dorado\drawings\New Micro\Micro.Housing.SLDDRW", 3)
' MSGBOX
' Cannot open \\Tornado\dorado\Drawings\600024-Dorado\drawings\New Micro\Micro.Housing.SLDDRW.
' 
Future Version

Set Part = swApp.OpenDoc ("\\Tornado\dorado\Drawings\600024-Dorado\Dorado Tailcone\altex\drawings\Micro Housing Support\100746.SLDDRW", 3)
' MSGBOX
' Cannot open \\Tornado\dorado\Drawings\600024-Dorado\Dorado Tailcone\altex\drawings\Micro Housing Support\100746.SLDDRW.
' 
Future Version

swApp.ExitApp
End Sub