Revision history:
Introduced in QPR 7.2.1
Last changed in QPR 2012.2
Opens a file model. This command does not require a server connection to be active.
Synopsis:
PGApplication.OpenFileModel(FileModelPath, ModelPassWord, out Model)
Parameters:
FileModelPath: Path of the file model. String.
ModelPassWord: Password required for opening the model (if any). String.
out Model: Variant for storing the model which is opened.
Required Rights:
None.
Return Values:
Below are listed the return values that this function can return:
RV_SUCCESS
RV_APPLICATION_QUIT_CALLED
RV_CANNOT_CLOSE_MODEL
RV_CANCELLED
RV_CANNOT_OPEN_ANOTHER_SCRIPT_FILE_FROM_SCRIPT
RV_ERROR_IN_MODEL
RV_CANNOT_OPEN_FILE
RV_UNSUPPORTED_FILE_TYPE
RV_UNSUPPORTED_FILE_VERSION
RV_CANNOT_READ_FROM_FILE
RV_LOGIN_FAILED
RV_FUNCTION_CANNOT_BE_USED_IN_VALIDATION_SCRIPT
Example Procedure:
Sub OpenDentorexFileModel()
Dim iResult
Dim oModel
iResult = PGApplication.OpenFileModel("C:\Program Files\QPR 2023\ProcessGuide\Models\Dentorex - Quality Management System.qprdam", "", oModel)
If (iResult <> 0) Then
MsgBox "Opening the model failed: " + PGApplication.GetErrorMessage(iResult)
End If
Set oModel = Nothing
End Sub
