|
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
Set fi = ImportFile("C:\a1.txt", CatalogDB.CatalogRoot)
Set fi = ImportFile("C:\a2.txt", CatalogDB.CatalogRoot)
IsOK = LoadFileContents(CatalogDB.CatalogRoot.SubItems)
If IsOK Then MsgBox "LoadFileContents is ok!" |