Imports RevisionManager
Imports System.Runtime.InteropServices
Module Example
Sub Main()
Dim objApplication As RevisionManager.Application = Nothing
Dim bUseSearchScope As Boolean
Dim bstrFolders As String
Dim bIncludeSubFolders As Boolean
Dim aListOfFoundDocuments As Object = Nothing
Dim iNumDocsFound As Long ' out parameter
Dim varFileFilterOrText As String
Dim PropertyList(1) As Object
Dim ConditionList(1) As Object
Dim PropertyValueList(1) As Object
Dim varNumProps As Integer
Dim varCheckModified As Boolean
Dim varNumberOfDays As Integer
Dim aListOfTitles As Object = Nothing
Dim aListOfSubjects As Object = Nothing
Dim aListOfModifiedDates As Object = Nothing
Dim returnValue As Long
Try
' Start Revision Manager.
objApplication = New RevisionManager.Application
bUseSearchScope = True
bstrFolders = ""
bIncludeSubFolders = True
'varFileFilterOrText = "*.asm,*.par,*.psm,*.pwd,*.dft"
varFileFilterOrText = "*.par"
PropertyList(0) = "SEStatus"
ConditionList(0) = "="
PropertyValueList(0) = "Available"
varNumProps = 1
varCheckModified = False
varNumberOfDays = 5
objApplication.SearchDocuments(bUseSearchScope, bstrFolders, _
True, aListOfFoundDocuments, _
iNumDocsFound, varFileFilterOrText, _
PropertyList, ConditionList, _
PropertyValueList, varNumProps, _
varCheckModified, varNumberOfDays, _
aListOfTitles, aListOfSubjects, _
aListOfModifiedDates)
Catch ex As Exception
' Write any errors to console.
Console.WriteLine(ex.Message)
Finally
' Release COM Objects.
If Not (objApplication Is Nothing) Then
objApplication.Quit()
Marshal.ReleaseComObject(objApplication)
objApplication = Nothing
End If
End Try
End Sub
End Module