IniPath Property Example

This example sets the path in the IniPath property to an application's key in the Windows Registry.

Sub IniPathX()

   ' Change the IniPath property to point to a different 
   ' section of the Windows Registry for settings 
   ' information.
   Debug.Print "Original IniPath setting = " & _
      IIf(DBEngine.IniPath = "", "[Empty]", _
      DBEngine.IniPath)
   DBEngine.IniPath = _
      "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\" & _
      "Jet\3.5\ISAM Formats\FoxPro 3.0"
   Debug.Print "New IniPath setting = " & _
      IIf(DBEngine.IniPath = "", "[Empty]", _
      DBEngine.IniPath)

End Sub