This lets you save the measurement routine with a new name or in a new file location.
Visual Basic |
---|
Public Function SaveAs( _ ByVal Name As String _ ) As Boolean |
- Name
String value containing the full pathway and file name to which to save.
Boolean value. Boolean returns true if the function succeeds, false if it fails. TRUE if the part was saved successfully, FALSE otherwise.
Sub Main (strText As String)
App As ObjectDim
Set
App = CreateObject ("PCDLRN.Application")Dim
Part As ObjectSet
Part = App.ActivePartProgramPart.SaveAs "d:\temp\testprogram.prg"
End
Sub