Question 32

Comment lire et écrire dans un fichier .INI ?

Il faut utiliser les API "GetPrivateProfileString" et "WritePrivateProfileString" :

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Form_Load()

    Dim Ret As String, NC As Long

    WritePrivateProfileString App.Title, "KeyName", "Valeur", "C:\test.ini"

    Ret = String(255, 0)
    NC = GetPrivateProfileString(App.Title, "KeyName", "Default", Ret, 255, "C:\test.ini")
    If NC <> 0 Then Ret = Left$(Ret, NC)
    MsgBox Ret

End Sub

Remarque : Les API de manipulation de fichiers .INI gèrent un cache pour optimiser les performances. Il est possible de forcer la mise à jour de ce cache avec un appel spécifique à WritePrivateProfileString(). Plus d'informations sont disponibles à ce sujet dans la fiche suivante : Q68827 Updating Cached Private Profiles (.INI Files).