Пример резервного копирования базы
Dim myServer As New Server
myServer.Connect(«(local)»)
Dim databaseName As String
Dim db As Database
Dim filePath As String
databaseName = «Adventure Works Sample»
filePath = «c:AdventureWorksSample.abf»
db = myServer.Databases.Item(databaseName)
db.Backup(filePath)