This seems to work ....(on mac at least... can't try it on windows yet since
the remote debugger seems to suddenly broken)
Dim DBFileType as New FileType
DBFileType.Name = "special/any"
dbfile = GetSettingsFolder.child(DivDeptDBName + DBFileType)
db.DatabaseFile = dbfile
if db.CreateDatabaseFile then
if dbfile <> nil then
if dbfile.Exists then
if db.Connect then
createDBCreateTables
Return true
end if
end if
end if
else
MsgBox "db was not created"
end if
Return false
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
