Hallo,
vielen Dank für die Antwort.
So wollte ich es zuerst auch machen, funktioniert aber nicht.
Da ich alle geöffneten E3-Projekte ansprechen will, öffne ich E3 nicht über CreateObject( "CT.Application" ) sondern über CreateObject("CT.Dispatcher").
Hier mal mein Code zum schliessen aller offenen E3-Projekte:
Dim lst, i
Dim App = CreateObject("CT.Dispatcher")
Dim cnt = App.GetE3Applications(lst)
Dim savename(cnt)
'alle E3-Anwendungen speichern und schliessen
If cnt > 0 Then
For i = 1 To cnt
Dim Obj = lst(i)
If Not Obj Is Nothing Then
Dim Job = Obj.CreateJobObject
If Job.getid <> 0 Then
savename(i) = Job.getpath & Job.getname & "_close"
Job.saveas(savename(i))
Job.close()
Job = Nothing
End If
End If
Next
End If
App = Nothing
Die offenen E3-Projekte werden mit dem Zusatz "_close" im Dateinamen beendet.
Das Programm wird in VB.net geschrieben. Ich habe das "Problem" mit dem Schliessen jetzt über die Prozesseverwaltung gelöst. Einfacher wäre es natürlich gewesen, wenn E3 sich selbst beenden würde.
Grüsse
Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP