Automatyzacja OLE: procedura OpenIndex

OpenIndex( indexPath )

  • indexPath nazwa ścieżki otwieranego indeksu.

    Zwraca wartość True, jeśli indeks został otwarty z powodzeniem; w innym przypadku zwraca False.

    •

    Przykład:

    ' wilbur i bIndexLoaded to zmienne globalne
' jeśli otwarty już jest indeks, zamknij go
    If bIndexLoaded Then
    wilbur.quit
bIndexLoaded = False
    End If
    Set wilbur = CreateObject("Wilbur.FileIndex")
bIndexLoaded = True
If Not wilbur.OpenIndex(Text1.Text) Then
    MsgBox ("Nie można załadować indeksu")
    End If

    Przykładowa procedura otwiera indeks, którego nazwę wprowadzono w polu Text1. Jeśli jakiś indeks jest już otwarty, procedura najpierw go zamyka.

     

    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.