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). |