| Solid Edge Framework Type Library > SolidEdgeInsightXT Object : GetOutOfDateDocuments Method |
| Visual Basic |
|---|
Public Sub GetOutOfDateDocuments( _ ByRef pvarListOfOutOfDateDocuments As Variant _ ) |
Private Sub Command1_Click() On Error Resume Next Dim objApplication As SolidEdgeFramework.Application Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT Set objApplication = GetObject(, "SolidEdge.Application") Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT Dim plistoffiles As Variant Call objSolidEdgeInsightXT.GetOutOfDateDocuments(plistoffiles) Set objSolidEdgeInsightXT = Nothing Set objApplication = Nothing End Sub