Given your description of what is happening, I still don't know how to correct it, but I can recommend some tests for debugging purposes. Change the code to something like this -
Dim App As Object
Dim Parts As Object
Dim Part As Object
Set App = CreateObject("PCDLRN.Application")
Set Parts = App.PartPrograms
Set Part = Parts.Open(sFilePath, "CMM1")
msgbox "Pause for 10 seconds here"
Part.Execute
Part.Close
App.Quit
Set App = Nothing
When this runs, the comment will display on the screen. Try waiting for 10 or 15 seconds before you hit ENTER to clear the comment. Maybe there is some sort of timing issue causing a problem. If this tells us anything, we'll try to handle it with a check to make sure the part program object is completely latched before it goes on.
Given your description of what is happening, I still don't know how to correct it, but I can recommend some tests for debugging purposes. Change the code to something like this -
Dim App As Object
Dim Parts As Object
Dim Part As Object
Set App = CreateObject("PCDLRN.Application")
Set Parts = App.PartPrograms
Set Part = Parts.Open(sFilePath, "CMM1")
msgbox "Pause for 10 seconds here"
Part.Execute
Part.Close
App.Quit
Set App = Nothing
When this runs, the comment will display on the screen. Try waiting for 10 or 15 seconds before you hit ENTER to clear the comment. Maybe there is some sort of timing issue causing a problem. If this tells us anything, we'll try to handle it with a check to make sure the part program object is completely latched before it goes on.
