|
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
'Please ensure the drive G have a cdrom.
Dim ImportCDCmd
Set ImportCDCmd = GetImportCDCmd("MyCD", "G:",ˇˇCatalogDB.CatalogRoot)
If IsObject(ImportCDCmd) Then MsgBox "The GetImportCDCmd Function is successful!" |