Table of contents
TOC
Collapse the table of content
Expand the table of content

GetAllSettings Function

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Returns a list of key settings and their respective values (originally created with SaveSetting ) from an application's entry in the Windowsregistry or (on the Macintosh) information in the application's initialization file. SyntaxGetAllSettings( appname,section ) The GetAllSettings function syntax has thesenamed arguments:

PartDescription
appnameRequired. String expression containing the name of the application orproject whose key settings are requested. On the Macintosh, this is the filename of the initialization file in the Preferences folder in the System folder.
sectionRequired. String e xpression containing the name of the section whose key settings are requested. GetAllSettings returns aVariant whose contents is a two-dimensionalarray of strings containing all the key settings in the specified section and their corresponding values.

RemarksGetAllSettings returns an uninitialized Variant if either appname or section does not exist.

Example

This example first uses the SaveSetting statement to make entries in the Windows registry for the application specified as appname, then uses the GetAllSettings function to display the settings. Note that application names and section names can't be retrieved with GetAllSettings. Finally, the DeleteSetting statement removes the application's entries.

' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
    Next intSettings
DeleteSetting "MyApp", "Startup"
© 2017 Microsoft