When using the .Objects property of a Folder object with argument fpObjectTypeFolder the sequence of the folder objects in the FPObjects collection should be the same as in the Folder window (not in the Object List window). The following procedure outputs all folders in the root of the active project database.
Public Sub ShowFolders()
Dim oColl As FpObjects
Set oColl = ActiveDatabase.RootFolder.Objects(fpObjectTypeFolder)
Dim sRes As String
Dim oObj As FpObject
For Each oObj In oColl
sRes = sRes & oObj.Name & vbCrLf
Next
MsgBox sRes
End Sub
Specifying a string pattern instead of fpObjectTypeFolder can be used to narrow the collection of folders. For example the FPScript string “^Data\\d{3}\\.FLD$” will enumerate all folders (\\.FLD$) whose names start with Data (^Data) followed by three digits (\\d{3}). Note the double backslash because its use as escape character in string literals. More on regular expressions can be found in the Online Help for Objects (property) in the Index.
.