' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/22/99 by Shadow & Shape
' ******************************************************************************

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 ("C:\WINDOWS\Desktop\New Folder\coint_sorter\electric coin tester.SLDASM", 2)
' MSGBOX
'  C:\WINDOWS\Desktop\New Folder\coint_sorter\electric coin tester.SLDASM is not available for write access.  Do you want to make a copy?

Set Part = swApp.ActivateDoc ("electric coin tester.SLDASM")
Set Part = Nothing
swApp.CloseDoc "electric coin tester.SLDASM"