|
IsOK = DeleteCatalogItems(cil)
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
Set ug1 = AddUsergroup("UserGroup1", CatalogDB.CatalogRoot)
Set ug2 = AddUsergroup("UserGroup2", CatalogDB.CatalogRoot)
Set ug3 = AddUsergroup("UserGroup3", CatalogDB.CatalogRoot)
ApplyAll
IsOK = DeleteCatalogItems(CatalogDB.CatalogRoot.SubItems)
If IsOK Then MsgBox "The execution of DeleteCatalogItems Function is successful!"
ApplyAll |