What I want to do is to see what active part program Pc Gear has opened.
I have found a way to do this in Dmis but cannot find the gear application.
When I try I get - runtime error on line 9 – OLE automation server cannot create object.
I have tried Gear.application, PcDmisGear.application, Pc-dmis gear.application.
I looked at the windows task manager for its description with no help.
What I have
[B]Sub[/B][B] main[/B]
[B] 'Delare variable[/B]
[B] Dim strFileName As String [/B]
[B] Dim ObjApp As Object[/B]
[B] Dim ObjPart As Object[/B]
[B] Dim StrDimID As String[/B]
[B]' Line works For PC Dmis Set ObjApp = CreateObject("pcdlrn.application")[/B]
[B] Set ObjApp = CreateObject("[/B]Pc-dmis gear.application[B]")[/B]
[B] Set ObjPart = ObjApp.ActivePartProgram [/B]
[B] 'Build And assign file Name[/B]
[B] strFileName = "C:\PCD output.txt"[/B]
[B] Open strFileName For Output As #1[/B]
[B] StrDimID = ObjPart [/B]
[B] 'Remove .prg [/B]
[B] If len(StrDimID)>0 Then [/B]
[B] StrDimID = mid(StrDimID,1,len(StrDimID)-4) [/B]
[B] End If [/B]
[B] 'Write To file And save[/B]
[B] Write #1, StrDimID[/B]
[B] Close #1[/B]
[B] MsgBox("File save complete")[/B]
[B]End[/B][B] Sub[/B]
I repeat my first attempt and what I have I picked up from everyone here and some help files.
The other would be PC Gear and Basic script is not compatible.
I do not have a script editor so any ideas would be helpful.
AL
