One more command for "PreferenceGroups"

[ar-s]

Concerning the preference command, it will be usefull to have a command which return us the number of "groups" in a pref file without using a code like :

Code: Select all

If OpenPreferences(MyPrefFile$)
  If ExaminePreferenceGroups()
    GroupNum=0
    While NextPreferenceGroup()
      GroupNum=GroupNum+1
    Wend
  EndIf
ClosePreferences()

A command like result=CountPreferenceGroups() will be great !