Automatyzacja eksportowania pakietu MTS

Aby wyeksportować pakiet o nazwie “test.pak”:

Zadeklaruj obiekty, które będą wykorzystywane podczas eksportu pakietu.
```
Dim catalog As Object
Dim packages As Object
Dim util As Object
```
Za pomocą polecenia On Error obsłuż błędy czasu wykonywania, otrzymywane w razie zwrotu przez metodę awaryjnej wartości HRESULT. Polecenie On Error i obiekt Err pozwalają sprawdzić błędy oraz odpowiednio na nie zareagować.
```
On Error GoTo failed
```
Wywołaj metodę CreateObject, aby utworzyć instancję obiektu Catalog. Wywołując metodę GetCollection, pobierz kolekcję Packages. Wywołaj metodę Populate, aby wypełnić pakiet danymi z katalogu.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set packages = catalog.GetCollection("Packages")
packages.Populate
```

Wyliczaj elementy kolekcji Packages w celu odnalezienia pakietu o nazwie “My Package”. Po odszukaniu pakietu utwórz instancję obiektu narzędziowego pakietu i wywołaj metodę ExportPackage.

For Each pack In packages
        If pack.Name = "My Package" Then
            Set util = packages.GetUtilInterface
            util.ExportPackage pack.Key, "c:\test.pak", 0
            Exit For
        End If
    Next
          
Exit Sub

W razie nieudanej instalacji pakietu wyświetlaj komunikat o błędzie. W komunikacie wykorzystaj obiekt Err.
```
failed:
    MsgBox "Failure code " + Str$(Err.Number)

End Sub
```

Zobacz też

Obiekty administracyjne programu MTS, Typy kolekcji programu MTS, Metody obiektów administracyjnych programu MTS, Automatyzacja czynności administracyjnych programu MTS za pomocą programu Visual Basic