MANIPULEZ LES FICHIERS INI AVEC UN MODULE DE CLASS

Option Explicit
'declaration du fichier string
Private fichier_ini As String

'ici les fonctions appi utilisée
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'fonction appi pour lire et ecrire un fichier ini
'api recupere une valeur
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
'api ecrit une valeur
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName$, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName$) As Long
'api ecrit une section
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias _
    "WritePrivateProfileSectionA" ( _
     ByVal lpAppName As String, _
     ByVal lpString As Any, _
     ByVal lpFileName As String) As Long
'fonction pour initialiser le fichier
'
Public Function Set_fichier(ByVal nom_fichier As String)
    If nom_fichier <> "" Then
        fichier_ini = nom_fichier
    Else
        MsgBox "Problème sur le nom de fichier ini", vbCritical + vbOKOnly, "Erreur"
    End If
End Function
'fonction pour retourner le nom de fichier
'
Public Function Get_fichier() As String
    If fichier_ini <> "" Then
        Get_fichier = fichier_ini
    End If
End Function

'fonction de lecture dans les fichiers init
'
Public Function GetIni(ByVal section As String, ByVal Variable As String) As Variant
Dim strRetour As String
Dim SectionArr() As String, m As Integer
Dim longueur As Integer
    If fichier_ini <> "" And Dir(fichier_ini) <> "" Then
        strRetour = String(65000, Chr(0))
        longueur = GetPrivateProfileString(section, Variable, "", strRetour, Len(strRetour), fichier_ini)
        GetIni = Left$(strRetour, longueur)
        SectionArr = Split(GetIni, vbNullChar)
        For m = 0 To UBound(SectionArr)
            GetIni = SectionArr(m)
        Next m
    End If
End Function


'fonction d ecriture dans les fichiers init
'
Public Function WriteIni(ByVal section As String, ByVal Variable As String, ByVal valeur As String) As Integer
        If fichier_ini <> "" Then
            WriteIni = WritePrivateProfileString(section, Variable, valeur, fichier_ini)
        End If
End Function

'fonction de suppression une valeur dans les fichiers init
'
Function SupIni(ByVal section As String, ByVal Variable As String) As String
    If fichier_ini <> "" And Dir(fichier_ini) <> "" Then
        SupIni = WritePrivateProfileString(section, Variable, 0&, fichier_ini)
    End If
End Function

'fonction de suppression une section dans les fichiers init
'
Function SupsectionIni(ByVal section As String) As String
    If fichier_ini <> "" And Dir(fichier_ini) <> "" Then
        SupsectionIni = WritePrivateProfileSection(section, 0&, fichier_ini)
    End If
End Function