Platform SDK: Transaction Server |
[This product will work only on Windows NT 4.0 versions and earlier. For Windows 2000 and later, see COM+ (Component Services).]
To export a package named “test.pak”:
Dim catalog As Object Dim packages As Object Dim util As Object
On Error GoTo failed
Set catalog = CreateObject("MTSAdmin.Catalog.1") Set packages = catalog.GetCollection("Packages") packages.Populate
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
failed: MsgBox "Failure code " + Str$(Err.Number) End Sub
See Also
MTS Administration Objects, MTS Collection Types, MTS Administration Object Methods, Automating MTS Administration with Visual Basic