|
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
'Please ensure that the local disk is exist.
Dim ImportLocalDiskCmd
Set ImportLocalDiskCmd = GetImportLocalDiskCmd("LocalDiskC", "C:", CatalogDB.CatalogRoot)
If IsObject(ImportLocalDiskCmd) Then MsgBox "The GetImportLocalDiskCmd Function is successful!" |