Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (Byval lpApplicationName As String, _
lpKeyName As Any, Byval lpDefault As String, _
Byval lpRetunedString As String, Byval nSize As Long, _
Byval lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(Byval lpApplicationName As String, _
Byval lpKeyName As Any, Byval lpString As String, _
Byval lpFileName As String) As Long
' In Initialize or whatever main code section you are using:
Dim OldValue As String
Dim NewValue As String
Const iniFile = "C:/Lotus/Notes/notes.ini"
Const iniSection = "Notes"
Const iniKey = "names"
Private Function GetStringFromINI(sApp As String, sKey As String, _
sFilename As String) As String
Dim sRet As String
Dim lSize As Long
sRet = String$(255, Chr$(0))
lSize = GetPrivateProfileString(sApp, Byval sKey, &H0, _
sRet, 255, sFilename)
GetStringFromINI = Left$(sRet, lSize)
End Function
Sub Initialize
Dim s As New notessession
Set db = s.getdatabase(s.currentdatabase.server,"lotusscriptcompilerwwww.nsf",False)
Msgbox Not db Is Nothing
REM Read the current value for this section/key
OldValue = GetStringFromINI( iniSection, iniKey, iniFile )
Msgbox OldValue
REM Write a new value to this section/key
Call WritePrivateProfileString( iniSection, iniKey, "JosephBloe.id", iniFile )
REM Read the current (new) value for this section/key
NewValue = GetStringFromINI( iniSection, iniKey, iniFile )
Msgbox NewValue
REM Write the old value back -- put the ini file back the way it was
Call WritePrivateProfileString( iniSection, iniKey, OldValue, iniFile )
REM Read the current (final) value for this section/key
OldValue = GetStringFromINI( iniSection, iniKey, iniFile )
Msgbox OldValue
End Sub