|
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
'Please ensure that the folder's path is exist.
Dim ImportFolderCmd
Set ImportFolderCmd = GetImportFolderCmd("ImportedFolder", "G:\Folder", CatalogDB.CatalogRoot)
If IsObject(ImportFolderCmd) Then MsgBox "The ImportFolderCmd Function is successful!" |