Using the Open method of the Databases collection of the Application object, one can load a FlexPro project database. The Folder object to be copied can be obtained via the RootFolder method of the opened Database object. Using its CopyTo method with the RootFolder of the destination Database performs the actual copy operation. With the Rename method the newly created folder can be given the desired name.
If you count the databases using an integer variable nCnt and FlexPro project database filenames as a string sFpd the code in your loop might look like the following:
[code]
Dim nCnt As Integer
Dim sDstName As String
Dim oSrcDb As Database
Dim oSrcFolder As Folder
Dim sFpd
…
sDstName = “Data” & Right$(Str$(nCnt + 100), 2)
Set oSrcDb = Application.Databases.Open(sFpd, fpOpenModeReadOnly)
Set oSrcFolder = oSrcDb.RootFolder(“Data”, fpObjectTypeFolder)
oSrcFolder.CopyTo(ThisDatabase.RootFolder, fpNameClashHandlingOverwrite).Rename sDstName
oSrcDb.Close fpDoNotSaveChanges
[/code]
But be aware that opening a project database is a time consuming operation, so get a cup of coffee when executing the script.
