Automatyzacja OLE: przykład wykorzystania procedury SearchFor

Przykład wykorzystania procedury SearchFor

Dim searchResults As Object
Dim search2 As Object

' pobierz listę plików zawierających wyrażenie wpisane
' w polu Text1 

Set searchResults = wilbur.SearchFor(Text1.Text)

' Wyodrębnij nazwy z listy i użyj ich
' do wypełnienia listy rozwijalnej

Dim bResult As Boolean
Dim nCount As Integer

nCount = 0
bResult = searchResults.setToStart

While bResult

Dim lastMod As Date

lastMod = searchResults.getModifiedDate
List1.AddItem searchResults.getPath + _
 Chr(9) + Format(lastMod)

bResult = searchResults.setToNext
nCount = nCount + 1

Wend

Procedura przeszuka indeks i umieści pliki spełniające kryteria w obiekcie searchResults. Lista przechodzi następnie przez pętlę, która umieszcza nazwy ścieżek i daty modyfikacji plików na liście rozwijalnej.

Copyright (c) 1999 RedTree Development Inc. Wszelkie prawa zastrzeżone.
Informacje zawarte w tym dokumencie mogą ulec zmianie bez ostrzeżenia.
Nazwy innych produktów i firm wzmiankowane w tym dokumencie są znakami towarowymi lub zastrzeżonymi znakami handlowymi odnośnych firm lub właścicieli tychże znaków towarowych.