This module will allow the reading/writing of an INI file. 

Below are the API calls needed to access the modules.

	Dim sReturnValue as String
	Dim nReturnValue as Integer

	sReturnValue = ProfileString("ININame", "Header", "Keyword", "Default")
	nReturnValue = ProfileInt("ININame", "Header", "Keyword", Default)
	nReturnValue = SetProfileString("ININame", "Header", "Keyword", "Value")

-	The Default paramter will be returned if the ININame, Header or Keyword are not found.

-	SetProfileString will create ININame, Header and Keyword, but the directory path must exist. It will return a 0 on failure.

-	The other two calls will return the specified value or Default.

-	The ProfileString will only handle a string of 512 bytes (I thought that might be sufficient).

-	Here is a quick way I found to get the INI string built, if the INI file is in the same area as the executable:
		msProfilePath = App.Path & "\" & App.EXEName & ".ini"

-	The module will use both GetProfile and GetPrivateProfile API calls to take advantage of cached INI files.

If you have any questions/suggestions, please feel free to drop my an E-Mail

Chad Hegerty
71212,1045
