|
Sub ExperimentWithRegistry()
Dim vaKeys As Variant
' create new registry entries
SaveSetting "XLTest", "General", "App_Name", "XLTest"
SaveSetting "XLTest", "General", "App_Version", "1.0.0"
SaveSetting "XLTest", "General", "App_Date", "10/11/2003"
PrintRegistrySettings
SaveSetting "XLTest", "General", "App_Version", "1.0.1"
PrintRegistrySettings
vaKeys = GetAllSettings("XLTest", "General")
PrintAllSettings vaKeys
DeleteSetting "XLTest", "General", "App_Name"
DeleteSetting "XLTest", "General", "App_Version"
DeleteSetting "XLTest", "General", "App_Date"
PrintRegistrySettings
End Sub
Sub PrintRegistrySettings()
On Error Resume Next
Debug.Print "Application Name: " & GetSetting("XLTest", "General", "App_Name")
Debug.Print "Application Version: " & GetSetting("XLTest", "General", "App_Version")
Debug.Print "Application Date: " & GetSetting("XLTest", "General", "App_Date")
End Sub
Sub PrintAllSettings(vaSettings As Variant)
Dim nItem As Integer
If IsArray(vaSettings) Then
For nItem = 0 To UBound(vaSettings)
Debug.Print vaSettings(nItem, 0) & ": " & _
vaSettings(nItem, 1)
Next
End If
End Sub
|