|
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
'Please ensure that the movable disk is exist.
Dim ImportMoveDiskCmd
Set ImportMoveDiskCmd = GetImportMoveDiskCmd("MyMoveDisk", "M:", CatalogDB.CatalogRoot)
If IsObject(ImportMoveDiskCmd) Then MsgBox "The GetImportMoveDiskCmd Function is successful!" |