To demonstrate the simplicity of use, the following is a sample Visual Basic program to locate a folder within a Drawer.
Private Sub CmdFindFolder_Click()
'
'There is no error handling here.....you should add some
'
Dim tokopen As Object
'Create reference to tokopen
Set tokopen = CreateObject("Tokopen.TOKOPEN_VIEW")
'Define criteria %draw=Drawername, %folder<n>=folder search criteria %document<n>=document search criteria
tokopen.Parse_Command "%Draw=STUDENTS %Folder1=S00731"
'Process the search
tokopen.DoSearch
If tokopen.Documents.Count = 0 Then 'Nothing found
MsgBox "No Documents found"
tokopen.Kill_Public_Instance
Else
'Make the results visible
tokopen.Visible = True
End If
'Release our reference to the view
Set tokopen = Nothing
End Sub
If you wish to discuss your own particular requirements
then please call us now on 01753 616720 or e-mail us with your project details for a free assessment
and recommendation.
|
