VBS Post to Multiple Files Hangup

[JSergeant81]

Good Morning,

 

When I do the highlighted step below "Change File Names File Names To Match Machine Post" it seems to work fine when I end it after. It renames all of the File Names appropriately when I right click on an op, Edit Selected Ops, Change NC File Name it appears to be changed as it should be. However, it will not post as if it has unselected all of the operations.

 

When I comment this re-naming bit out it posts just fine but over writes my posts.

 

Is there something I need to do to apply these changes after the "Call SetNciNameFromOperationID" line? Do I need to re-select the operations again somehow after?

 

Thanks!

James

 

'===============================================================

'{--- Loop and Post for Each Machine Using Data Gathered ---}

'===============================================================

 

 Dim PostLoopCounter

 For PostLoopCounter = 0 to PostCount - 1

 

  '===============================================================

  '{--- Change File Names File Names To Match Machine Post ---}

'===============================================================

  ' For LoopCounter = 0 To NoOfOps

  '   If GetOperationSelectedFromID(vbNullString, LoopCounter) Then

  '    Call SetNciNameFromOperationID(LoopCounter, (MachName(PostLoopCounter) & DefinedNCFile))

  '   End If

  ' Next

  '===============================================================

  '{--- Post Program ---}

'===============================================================

   Call SetPostName(vbNullString)

   Call SetPostName(Posts(PostLoopCounter))

   Call RunPostAll(TapeLoc, False)

 

 

    ShowString ("Number of Ops : " & NoOfOps & VBCRLF & _

  "Number of Posts : " & PostCount & VBCRLF & _

  "Selected : " & NoOfSelectedOps & "/" & NoOfOps & VBCRLF & _

   "Defined File : " & DefinedNCFile & VBCRLF & _

   "Posted File : " & (MachName(PostLoopCounter) & DefinedNCFile) & VBCRLF & _

   "Using Post : " & Posts(PostLoopCounter) & VBCRLF & _

   "Post To : " & TapeLoc)

 Next